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Procedimientos con más de dos 
entradas 


NA vez que conocemos la 
forma de definir y trabajar 
con procedimientos de 
una y dos entradas, es fá- 
cil entender cómo se tiene 
que definir uno con más 
de dos entradas y cómo 
ejecutarlo. 

A la hora de definir un procedimiento 
con más de dos entradas tenemos que dar un 
nombre a cada una de las variables que va- 
mos a utilizar e indicarlos, por separado y pre- 
cedidos de dos puntos, a continuación del 
nombre del procedimiento. 

Por ejemplo, si deseamos definir un 
procedimiento en el que tres de los datos que 
utilizamos los queremos variar a nuestro gus- 
to, lo haríamos de la siguiente manera: 


? PARA Nombre Procedimiento :va- 
riablel :variable2 :variable 3 


Seguiremos añadiendo nombres de va- 
riables a medida que queramos o necesitemos 
utilizar más datos que actúen como variables. 

Si, por ejemplo, queremos definir un 
procedimiento para dibujar un cuadrado en 
cualquier punto de la pantalla, de cualquir ta- 
maño y en cualquier color, necesitamos utili- 
zar cuatro variables: una para posicionar la 
Tortuga en un punto con respecto a la coorde- 
nada X, otra para posicionarla con respecto a 
la coordenada Y, una tercera para determinar 


lo que tiene que avanzar al dibujar cada lado 
y, por último, una cuarta para que dibuje el 
cuadrado con el color que deseemos: 


? PARA CUA :PX :PY :LADO :COLOR 
> SL 

> PONX :PX 

> PONY :PY 

> PONCL:COLOR 

> REPITE 4[ AV :LADO GD 90 ] 

> FIN 


A la hora de ejecutar procedimientos 
con más de una.entrada tenemos que dar va- 
lor a cada una de las variables que hayamos 
definido. Así, el ejemplo anterior podrá ejecu- 
tarse de la siguiente forma: 


? CUA 40 -10 50 1 


y obtenemos un cuadrado dibujado a partir 
del punto 40,-10, de 50 puntos de longitud y 
del color equivalente al código 1. 

Utilizando varias entradas variables po- 
demos ampiar los procedimientos y conseguir 
hacer con uno solo lo que sin variables haría- 
mos con varios. 

Veamos algún ejemplo de procedi- 
mientos con tres entradas: 


— DIBUJAR Y COLOREAR BANDERAS 


Definimos un procedimiento para dibu- 
jar la bandera. 


? PARA BANDERA 
> PONCL 1 

> SL 

> PONX -40 
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> BL 

> PONY -75 REPITE 2 [ AV 150 GI 90 
AV 5 GI90] AV 50 

> REPITE 3[ AV 25 BL REPITE 2 ( AV 
28 GD 90 AV 100 GD 90 ] SL ] 

> FIN 


Un procedimiento de tres entradas que 
llamamos COLOR, para colorear la bandera. 

Vamos posicionando a la Tortuga en 
cada una de las franjas, ponemos el lápiz del 
color dado por las variables de entrada y re- 
llenamos. 


color para franja superior 
color franja central 
color franja inferior 


PARA COLOR :A :B:C 
SL 

PONPOS [ 5 60 ] 

BL 


PONCL :A 
RELLENA 
SL 

PONY 40 
BL 
PONCL :B 
RELLENA 
SL 


RELLENA 
FIN 


DIBUJO inicializa la pantalla, dibuja la 
bandera de España y luego otra bandera, cu- 
yos valores son asignados al azar. 


PARA DIBUJO 
BP ” 

OT 

BANDERA 
PONPALETA 0 + 
COLOR 232 
ESPERA 40 

BP 

BANDERA 

HAZ "A AZAR 4 
HAZ "BAZAR 4 
HAZ "'C AZAR 4 
COLOR :A :B :C 
FIN 


VVWVVVVVVVVVVVVVV" wu bs 


VVVVWVVWVVVVVVV> 


Ejecutamos el dibujo: 
? DIBUJO 


Fig. 1. 
— DANDO EN EL BLANCO 


Es un pequeño juego que consiste en 
rellenar de colores los cuadrados que apare- 
cen en la pantalla, sin cambiar el color del 
marco y sin rellenar los espacios que hay en- 
tre las tiras de cuadrados. 

Hemos intentado estructurar los proce- 
dimientos de tal forma que podáis, variando el 
número de cuadrados y su tamaño, aumentar 
o disminuir la dificultad del juego. 

Para dibujar el marco de los cuadrados 
definimos el siguiente procedimiento: 

PARA MARCO 

SL PONPOS [ -125 -75 ] 

BL 

PONRUMBO 0 

REPITE 2[ AV 165 GD 90 AV 240 GD 
90] 

FIN 


Los cuadrados los dibujamos con este 
otro procedimiento de una entrada :Y que sir- 
ve para ir colocando en la coordenada Y las ti- 
ras de ocho cuadrados. 

? PARA CUADRADOS :Y 

> SL PONX -125 PONY :Y 

> REPITE 8 [ BL REPITE 4[ AV 30 GD 

90 ] HAZ "X COORX + 30 SL PONX 
XX] 

> FIN 

Con DIBUJO, inicializamos la pantalla y 
dibujamos el tablero de juego llamando a 
MARCO y a CUADRADOS. 


? PARA DIBUJOS :Y 
> BP 
> PM 


V VWVWVWV> 


> MARCO 

> CUADRADOS 50 

> CUADRADOS 10 

> CUADRADOS -30 

> CUADRADOS -70 

> FIN 

Y por último, APUNTA, que sirve para 
posicionar a la Tortuga en el punto que elija- 
mos (X Y) y rellenar ese espacio con el color 
que hayamos indicado. 


:X posición coordenada X 
posición coordenada Y 
código de color 


Y 

:C 

? PARA APUNTA :X :Y :C' 
> SL PONX :X 

> PONY :Y 

> BL 

> PONCL .C 

> RELLENA 

> FIN 


Lo primero que debes hacer es dibujar 
el tablero de juego: 


? DIBUJO 


Fig. 2. 
y ahora ya puedes apuntar: 
?2 APUNTA 20 20 2 
? APUNTA 20 60 1 


? APUNTA 60 60 3 
? APUNTA 100 60 2 


Fig. 3. 


UL a LIRA ES UDINE 
. AE NL e Pb 


No hemos fallado ningún disparo, inten- 
ta conseguir el mismo promedio tú solo. 

Cuando te sepas de memoria las posi- 
ciones correctas, modifica las posiciones y el 
número de cuadrados. 


Definición de variables 


Veamos qué ocurre cuando a la hora de 
definir las variables lo hacemos de distintas 
maneras y qué resultados obtenemos a la hora 
de ejecutar los procedimientos que las contje- 
nen. 

El Logo nos permite dar dentro de un 
mismo procedimiento nombres iguales a las 
variables: 


? PARA EJEMPLO :V :V :V 
> AV:V 
> FIN 


A la hora de ejecutarlo tenemos que 
asignar tantos valores como variables tenemos 
y no bastaría con dar un solo valor, aunque las 
tres variables se denominen igual. 

Si damos valores distintos a las varia- 
bles: 


? EJEMPLO 10 20 30 


el valor que pasa al procedimiento es el pri- 
mero que se ha tecleado, en este caso, 10. 

El Logo también nos permite usar como 
nombre de, variables el de las primitivas: 


? PARA EJEMPLO :AV 
> AV:AV 
> FIN 


? PARA EJEMPLO :AV :GD 
> GD:GD 

> AV:AV 

> FIN 


El nombre de la variable puede ser tan 
largo como queramos y puede estar compues- 
to de letras, números o signos, a excepción de: 


— Los operadores aritméticos +, —, /, y 


— Los operadores de relación: >, < y 
— Los paréntesis: ( ) 
— Los corchetes: [ ] 
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Un nombre de variable puede ser, por 
ejemplo: 


? PARA EJEMPLO :V1J?:R'3 
> AV :V1J2?:R"3 
> FIN 


Los caracteres que componen el nom- 
bre de variable no pueden estar separados 
por un espacio en blanco. Sería motivo de 
error definir una variable de la siguiente for- 
ma: 

? PARA EJEMPLO :S 2 


En este caso, recibimos un mensaje en 
el que nos dice,que la orden PARA no acepta 
2 como dato. 

Si el espacio se deja al principio del 
nombre, ocurriría lo mismo que en el caso an- 
terior: 


? PARA EJEMPLO : S2 


En este caso nos devuelve un mensaje 
diciéndonos que S2 no se acepta como dato. 

Por último, podemos indicar que se va 
a utilizar una variable, pero no darle un nom- 
bre, basta con indicar los dos puntos después 
del nombre del procedimiento. En el lugar 
donde queremos utilizar la variable tenemos 
que indicarlo también con dos puntos exclusi- 
vamente: 


? PARA EJEMPLO : 
> AV: 
=WEIN 


La variable en este caso no recibe un 
nombre, pero está identificada por el espacio 
en blanco. 

: A la hora de ejecutarlo, tenemos que 
dar un valor a la variable, como siempre he- 
mos hecho: — ” 


? EJEMPLO 3 


Asignaciones 


En LOGO a todo aquello que no sea una 
acción se le denomina objeto. Un dato es un 
objeto LOGO; pueden ser números, caracte- 
res, variables... 

Una asignación es una operación a tra- 
vés de la cual damos un valor a una variable. 


En LOGO escribimos una asignación de la si- 
guiente forma: 


— HAZ "nombre de la variable "objeto 


en este caso el objeto que asignamos a la va- 
riable es uno o varios caracteres, ya que he- 
mos escrito delante del objeto unas comillas. 


? HAZ'“A "LOGO 


hemos asignado la palabra LOGO a la varia- 
ble A. 


— HAZ "nombre de la variable objeto 
en este otro caso el objeto sería un número. 
? HAZ'Bl 


asignamos a la variable B el valor 1. 
Si ahora tecleas: 


? ESCRIBE :A 
LOGO 


? ESCRIBE :B 
1 


observarás que, efectivamente, las variables 
A y B contienen los valores que les habíamos 
asignado. 

Podemos modificar el contenido de una 
variable simplemente asignándole otro valor 
distinto: 4 

? HAZ"A 20 


? ESCRIBE :A 
20 ó 


La variable A ya no contiene la palabra 
LOGO, ahora contiene el número 20. 

Hemos visto que el objeto que asigna- 
mos a una variable puede ser un número o una 
palabra; veamos ahora que también puede ser 
el contenido de otra variable: 


? HAZ"A 20 
?2 HAZ'B:A 


Primero le damos a la variable A el va- 
lor 20, luego le asignamos a B la variable A, es 
decir, el contenido de A; por tanto, el valor de 
B es también 20. 


? ESCRIBE :A ESCRIBE :B 
20 
20 


Otra forma de realizar asignaciones es 
con la orden ASIGNA. 


?  ASIGNA objeto “nombre de variable 


lo único que varía de una orden a otra es el or- 
den de colocación del objeto y el nombre de 
la variable: 


? ASIGNA 450 “A 


? ESCRIBE :A 
450 


? ASIGNA "HOLA "A 


? ESCRIBE :A 
HOLA 


NOTA: En el LOGO del SPECTRUM 
para realizar asignaciones sólo disponemos de 
la orden ASIGNA. 

Familiariízate con esta nueva orden rea- 
lizando unas cuantas asignaciones y observan- 
do los resultados: 


dy AZ AASl 
ESCRIBE :A 


HAZ'"A 2 
ESCRIBE :A 


Do Y —. 


hemos borrado el contenido anterior de A: 
2 HAZ"A SUMA 3 5 
? ESCRIBE :A 
8 


asignamos a A el resultado de una suma: 
? HAZ"A "LOLA 


? ESCRIBE :A 
LOLA 


observa que podemos asignar a una misma va- 
riable números o letras indistintamente: 

? ESCRIBE 100 +:A 

+ NO ACEPTA LOLA COMO DATO 


para poder realizar operaciones aritméticas 
con las variables éstas deben contener valo- 
res numéricos: 

?2 HAZ'"A 20 


? ESCRIBE 100 / :A 
5 


HAZ “A 10 
HAZ 'B:A 
ESCRIBE :A 
? ESCRIBE :B 
10 

10 


hemos asignado a B el contenido de A, sin al- 
terar a esta última: 


? HAZ'"A 40 


? ESCRIBE :A 
40 


? ESCRIBE :B 
10 


2 HAZ'"A 50 
? HAZ'"B 100 
2 HAZ'C:A+:B 


? ESCRIBE :C 
150 


hemos asignado a la variable C la suma de las 
variables A y B: 


? ASIGNA 200 'A 

? ASIGNA 10 “B 

? ASIGNA RESTO :A :B "C 
: ESCRIBE :C 


AE O 


Asignamos a C el resto de la división de 
A y B. 


Cuadro resumen 


— HAZ "Nombre de Variable “objeto 
— HAZ "Nombre de Variable objeto 


Se le asigna a la variable especificada 
un objeto que puede ser: 


— un conjunto de caracteres, y hay que 
indicarlo con comillas. 

— un valor numérico, y hay que indi- 
carlo sin comillas. 

— ASIGNA "objeto "Nombre de variable 

— ASIGNA objeto “Nombre de variable 


Realiza la misma operación que la or- 
den HAZ, pero a la inversa. 
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2 Ejercicios 


l. Dibuja un semáforo de tres discos y con un 
procedimiento de tres entradas coloréalos. 
Intenta calcular los cuadrados de los 50 pri- 
meros números naturales. 

Intenta realizar el siguiente dibujo: 


2. 
3. 


Fig. 4. 


Con los procedimientos que necesites y de 
las entradas necesarias, realiza una proce- 
so para poder situar el número de sillas 
que queramos a cada lado de una mesa que 
puede ser de diferentes tamaños. 


¿Son correctas las órdenes siguientes? 
? HAZ'*A 

ASIGNA "A 40 

HAZ “AV 450 

PARA CASA :V 1 

PARA TREN :REPITE 


A) 


¡ Solución a los ejercicios 


ieAn 


Primero definimos el procedimiento para di- 
bujar el semáforo con los tres discos. 


PARA SEMA 


REPITE 2 [ AV 84 GD 90 AV 32 GD 
90 ] 
GD 90 AV 19 


V VVVVV> 


10 


VVUWVVVVVVVVV Y 


REPITE 2 [ GD 90 AV 80 GD 90 AV 
16] 

SL PONPOS [ 12 16 ] 
PONRUMBO 180 

BL 

REPITE 36 [ AV 2 GD 10] 
SL PONPOS [ 12 43 ] 

BL 

REPITE 36[ AV2GD 10] 
SL PONPOS [ 12 70] 

BL 

REPITE 36 [ AV2GD10] 
FIN 


Luego el procedimiento de tres entradas para 
colorear los discos. 


VVWVVVVWVVVVVVVVVV>" Qui 


color disco superior 
color disco central 
color disco inferior 


PARA COLOR :A ¡B:C 
SL 

PONPOS [ 5 70 ] 

BL 


PONCL :A 
RELLENA 
SL 

PONY 43 
BL 
PONCL :B' 
RELLENA 
SL 

PONY 16 
PONCL :C 
BL 
RELLENA 
FIN 


Por último, el procedimiento DIBUJO que ini- 
cializa la pantalla y realiza una simulación de 
un semáforo real cuando pasa de rojo a verde. 


MVA VNV IMANES 


PARA DIBUJO 
BP 


OT 

SEMA 
PONPALETA 0 
COLOR 200 
ESPERA 40 
COLOR 030 
ESPERA 40 
COLOR 001 
FIN 


Si tu LOGO no dispone de la orden PONPALE- 
TA, no la teclees. A 
Si los códigos de colores no corresponden a: 


l verde 
2 rojo 
3 ámbar 


sustituye en el procedimiento estos códigos 
por los que utilice tu ordenador. 
Ejecuta el dibujo tecleando 


? DIBUJO 


Fig. 5. 
2: 


PARA CUADRADOS 

PE 

ESCRIBE "CUADRADOS 

HAZ "BO 

REPITE 50 [ HAZ 'C :B + 1 HAZ "C2 
:C * :C ESCRIBE :C2 

HAZ “B :C ESPERA 10 ] 

FIN 


Habrás pensado que es una forma un tanto re- 
buscada de resolver el ejercico, y así es. Más 
adelante estudiaremos otras maneras de re- 
solverlo mucho más sencillas; eso será cuan- 
do conozcamos un poco mejor el LOGO, 

El método que hemos seguido es el siguiente: 


AE A 


> 


— Inicializamos la variable B a cero. 
— Repetimos 50 veces el proceso: 


e Asignar a C el valor de B más uno. 
La primera vez C será igual a 1. 
La segunda vez C será igual a 2, pues B ya 
valdrá 1. 
Así sucesivamente en C tendremos (1, 2, 3, 
4, ..., 80) todos los números naturales hasta 
el 50. 


e Elevar al cuadrado C. Lo hemos hecho mul- 


4 rd y “E » 0 a 


11 


ES A o 
Yo AIRE 


AE Y ES PAL METIA 


tiplicando C por sí misma porque no todas 
las versiones de LOGO disponen de la fun- 
ción POTENCIA a b. El resultado lo almace- 
namos en la variable C2 y luego la escribi- 
mos. 


Asignar a B el contenido de C. 

Con esto conseguimos que B se incremente 
en 1. 

La primera vez B tendrá el valor 1. 

La segunda vez el valor 2, pues C ya val- 
drá 2. 


Puedes variar el límite de los 50 primeros cam- 
biando el 50 del REPITE por Es número «que 
quieras. 

Ejecuta el ejercicio tecleando: 


? CUADRADOS 
3: 


Definimos un primer procedimiento para di- 
bujar los márgenes de la carretera y las di- 
mensiones: 


PARA MARGEN 


SL 
PONPOS [ -50 -50 ] 


VVVWVWVVVVV" 


Con el siguiente dibujamos la línea disconti- 
nua de separación de carriles: 


? PARA LINEA 

> SL 

> PONPOS [ -2 -50 ] 

> BL 

> REPITE 5 [ REPITE 2 [ BL AV 20 GD 
90 AV4GD90]SLAV 25] 

SL 

> PONPOS [ -1 -40 ] 

> REPITE 5 [ BL RELLENA SL AV 25 ] 

> FIN 


A continuación el que dibuja el paso de cebra: 


? PARA CEBRA 

> SL 

> PONPOS [ -47 75 ] 

> REPITE 8 [ REPITE 2 [ BL AV 30 GD 
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90 AV 10 GD 90] GD 90 SL AV 12 GI 
90 ] 
> SL 
> AV15GI90 AV 7 
> REPITE 8 [ BL RELLENA SL AV 12] 
> FIN 


Y, por último, el que dibuja las flechas que in- 
dican el sentido de la circulación en los dos 
carriles: 


PARA FLECHAS 

SL 

PONPOS [ 23 -10 ] 

PONRUMBO 0 

BL 

REPITE 2[ AV 40 GD 90 AV 4 GD 90 


AV 41 GI90 AV 5 

PONPOS [ 25 50 ] 

PONPOS [ 32 31 ] 

PONX 24 

SL 

PONPOS [ -23 50 ] 

PONRUMBO 180 

BL 

REPITE 2 [ AV 40 GD 90 AV 4 GD 90 


AV 41 GI90 AV 5 
PONPOS [ -25 -10 ] 
PONPOS [ -32 9 ] 
PONX -24 

FIN 


Una vez que tenemos todos los procedimien- 
tos definidos por separado, los agrupamos en 
uno solo: 


VINE MENE EYES ENEE 


PARA CARRETERA 
13 


Ed 
MARGEN 
LINEA 
CEBRA 
FLECHAS 
FIN 


Para ejecutarlo 
? CARRETERA 


VVVVVVV" 


4: 


Definimos un procedimiento para dibujar la 
mesa, donde tanto el largo como el ancho pue- 
den ser variables. Centramos la mesa utilizan- 


do las variables que nos determinan las di- 
mensiones de la mesa, situando la Tortuga a 
una distancia del centro y a la izquierda igual 
a la mitad del largo y a una distancia del cen- 
tro y hacia abajo igual a la mitad del ancho: 


PARA MESA :LARGO :ANCHO 
L 


PONX -:LARGO / 2 

PONY -:ANCHO / 2 

BL 

REPITE 2 [ AV :ANCHO GD 90 AV 
LARGO GD 90 ] 

SL 

PONX COORX + 5 

PONY COORY + 5 

BL 

REPITE 2 [ AV :ANCHO - 10 GD 90 
AV :LARGO - 10 GD 90 ] 

FIN 


A continuación definimos un procedimiento 
para dibujar las sillas. Estas van a ser todas de 
igual tamaño y van a tener una anchura de 18 
puntos. Una vez que dibuja una, la Tortuga se 
sitúa en la posición donde tiene que comenzar 
a dibujar la siguiente: 


PARA SILLA 

BL | 

REPITE 4 [[AV 10 GD 90 ] 
AV 2 GI90 

REPITE 2 [ BL AV 2 GD 90 AV 6 GD 
90 AV 2SLAV10] 

SL y 
PONRUMBO 0 

RE 2 

PONX COORX + 18 

FIN 


VVWVVV VVVvVvv> 


V 


A A a UVAS A 


Con el procedimiento LATERAL1, dibujamos 
el número de sillas que determina la varia- 
ble N: 


PARA LATERAL] :¡N 
SL 


PONY (¿ANCHO / 2) + 5 
REPITE :N [ SILLA ] 
> FIN 


? 
> 
> PONX (=N * 18 / 2) +4 
> 
> 


Calculamos los puntos que ocupan todas las si- 
llas para centrarlas y posicionamos a la Tortu- 
ga donde tiene que empezar a dibujarlas. 


Con LATERALZ, hacemos lo mismo que con 
LATERAL1, pero en la parte inferior: 


? PARA LATERALZ :Nl 

> SL 

> PONX (=N1 * 18 /2)+4 
> PONY (-:ANCHO / 2) - 15 
> REPITE :N] [ SILLA ] 

> FIN 


Tanto en LATERAL] como en LATERALZ2 se re- 
pite un número determinado de veces una lla- 
mada al procedimiento SILLA. 

Una vez que tenemos todos los procedimien- 
tos, definimos uno que contenga una llamada 
a todos ellos y por el que pasamos los valores 
a todos ellos: 


«Y 


PARA SALA :LARGO :ANCHO :N 
:¿N1 

BP 

OT 

MESA :LARGO :ANCHO 

LATERAL] :N 

LATERAL2 :¡Nl 

FIN 


VVVVVV 


Si queremos dibujar una mesa de 100 x 30, con 
5 sillas en la parte superior y 2 en la inferior: 


? SALA 10030 5 2 


y obtenemos: 


Fig. 6. 


Para una mesa de 200 x 40, con 10 sillas en la 
parte superior y 5 en la inferior: 


? SALA 200 40 10 5 
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Fig. 7. 


De la siguiente forma, obtenemos una mesa 
cuadrada de 50 x 50 con 3 sillas a cada lado: 


? SALA 50 50 3 3 


Fig. 6. 


—? HAZ'A 


INCORRECTO. No hemos indicado el objeto 
que queremos asignar a la variable a. 


LOGO muestra el mensaje: 
FALTAN DATOS PARA HAZ 


—? ASIGNA “A 40 


INCORRECTO. Si utilizamos la orden ASIGNA 
debemos invertir el orden de colocación, pri- 
mero el objeto y luego la variable. 


—? HAZ"AV 450 


CORRECTO. Asignamos a la variable AV el 
valor 450, 


—? PARA CASA :V 1 


INCORRECTO. No se pueden dejar espacios 
en blanco entre los caracteres que forman el 
nombre de una variable. 


—? PARA TREN :REPITE 


CORRECTO. EL LOGO nos permite utilizar 
como nombre de variables el de las primitivas. 
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OMO prometimos en el tomo 
anterior, en éste vamos a 
ver la explicación del pro- 
grama EL GUSANO LOCO. 
Espero que todos hayan es- 
tudiado el funcionamiento 
de dicho programa. En caso 
afirmativo será más fácil 
comprender la explicación que aparece a con- 
tinuación. Como siempre, veremos el funcio- 
namiento del programa línea a línea. 

Línea 180. Borramos la pantalla. 

Líneas 190 a 270. Se imprimen en pan- 
talla las teclas que están permitidas utilizar 
para mover el gusano por la pantalla. Como se 
puede apreciar por el programa, las teclas no 
se pueden definir. Esto se hizo así para que el 
programa ocupase menos espacio y para no 
asustar al usuario a la hora de introducirlo en 
el ordenador. Invito a todos los lectores a rea- 
lizar las modificaciones necesarias en este 
programa para que acepte la redefinición de 
teclas por parte del usuario. 

Línea 280. Dejamos dos líneas en 
blanco. : 

Línea 290. Preguntamos que con qué 
nivel de dificultad quiere jugar el usuario. En 
el nivel cero el gusano se moverá muy de pri- 
sa. En el nivel cuatro, éste se moverá bastante 
despacio. 

Línea 300. Si la tecla que ha pulsado el 
usuario tiene un código ASCII menor que cero 
(0) o mayor que cuatro (4), entonces el progra- 
ma repite la pregunta sobre el nivel del juego. 

Línea 310. Calculamos el retardo de 
tiempo que realizará el programa dependien- 
do del nivel elegido por el usuario. Si éste eli- 
gió un nivel cero (0), el retardo será nulo, Si 
eligió un nivel cuatro (4), éste será de 100 pa- 
SOS. 
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Línea 370. Volvemos a borrar la pan- 
talla. 

Línea 380. Se le dice al usuario que es- 
pere un momento. 


Línea 390. Dimensionamos todos los 
vectores que van a ser necesarios durante el 
transcurso del juego. Estos son: 


— A$O — Almacenará los hombres de 
las personas que han conseguido un récord. 

— SO — Almacenará la puntuación de 
las personas que han conseguido un récord. 

— F$0 — Almacenará las distintas frutas 
que se puede comer el gusano. 


Línea 400. En esta línea comienza un 
bucle dentro del cual vamos a asignar a todos 
los elementos del vector A$O el nombre de Si- 
glo Cultural. Como recordaréis, este vector se 
encarga de almacenar los nombres de las per- 
sonas que han conseguido una puntuación más 
alta. Como al principio del programa no ha ju- 
gado nadie todavía, entonces podemos asig- 
nar a todos los elementos del vector el nom- 
bre de la editorial. 

Línea 410. Se asigna a cada elemento 
del vector A$() el nombre de la editorial Siglo 
Cultural. 


Línea 420. Se almacena en todos los 
elementos del vector numérico SQ la puntua- 
ción 100, ' 

Línea 430. Aquí se termina el bucle. 

Línea 440. Se asigna a la variable NV 
el número 1 y a la variable VV el número 3. 
La variable NV nos servirá para saber en qué 
número de pantalla se encuentra el usuario. La 
variable VV nos dice el número de vidas del 
jugador. Si quieres, y eres muy malo jugando, 
puedes cambiar 'el valor de VV para tener 
diez vidas o más. 
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Línea 450. Dimensionamos una tabla de 
40 por 23 elementos en la cual almacenaremos, 
como si de la pantalla se tratase, toda la infor- 
mación que tenemos sobre el movimiento y es- 
tado del gusano. Los números que iremos al- 
macenando serán los siguientes según su sig- 
nificado: 


— 0 — En dicha posición de la pantalla 
no hay nada. 

— 1 — En dicha posición de la pantalla 
hay un ladrillo con el que se puede chocar el 
gusano. 

— -1 — En dicha posición de la pantalla 
se encuentra parte del cuerpo del gusano. 

— 2 — En dicha posición de la pantalla 
se encuentra la fruta que hemos definido como 
le 

— 3 — En dicha posición de la pantalla 
se encuentra la fruta que hemos definido como 
'%. 

— 4 — En dicha posición de la pantalla 
se encuentra la fruta que hemos definido como 


— 5 — En dicha posición de la pantalla 
se encuentra la fruta que hemos definido como 


Gracias a esta matriz no tenemos que 
estar mirando continuamente en la pantalla, 
sino que, con sólo mirar a dicha matriz, pode- 
mos ver lo que hay en la pantalla. Todo lo que 
vayamos imprimiendo en pantalla lo iremos al- 
macenando en esta matriz ( A(x,y)-). 

Línea 460. Definimos la primera de las 
frutas. Esta es la que tiene la forma de almo- 
hadilla (1). Su valor durante el juego será de 
80 puntos. 

Línea 470. Definimos otra de las frutas 
que interviene en el juego, Esta tendrá forma 
de tanto por ciento (%). Su valor será de 45 
puntos. 

Línea 480. En esta línea definimos la si- 
guiente fruta. Tendrá forma de dólar ($) y su 
valor será de 60 puntos. 

Línea 490. Almacenamos en el último 
elemento del vector F$( el carácter que ac- 
tuará como la fruta que nos dará más puntua- 
ción. Este será el signo igual (=). Su valor será 
de 75 puntos. 

Líneas 550 a 590. Realizamos un bucle, 
dentro del cual ponemos a cero todos los ele- 
mentos de la matriz AQ). Cuando el programa 
se ejecuta por primera vez esto no es necesa- 
rio, ya que el ordenador lo hace automática- 
mente, pero, una vez que hemos superado la 
primera pantalla, al igual que borramos la pan- 
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talla, tenemos que borrar todos los elementos 
de la matriz. 

Línea 600. Definimos la variable LO con 
valor cero (0). Esta variable nos indicará el nú- 
mero de caracteres que ha crecido el gusano 
después de comerse una fruta. 

Línea 610. Borramos la pantalla. 

Líneas 620 a 640. Inicializamos una se- 
rie de variables con valor diez (10). Estas va- 
riables tienen la siguiente función: 


X e Y — Nos indicarán la posición de la 
pantalla donde tenemos que imprimir, a con- 
tinuación, la cabeza del gusano. 

X1 e Yl1 — Nos indicarán la última posi- 
ción de la cabeza del gusano para sustituirla 
por parte del cuerpo. 

X3 e Y3 — Nos indicarán la posición de 
la cola del gusano. Gracias a esta variable po- 
dremos borrar la cola del gusano según éste 
vaya avanzando. 


Línea 650. Hacemos una llamada a la lí- 
nea 710. En esta línea nos encargaremos de 
dibujar los límites de la pantalla. Los límites 
del recinto sobre el que se moverá el gusano. 

Línea 660. Según el valor que tenga la 
variable numérica NV, iremos a una de las si- 
guientes líneas: 


Valor 1 — Línea 900 
Valor 2 — Línea 960 
Valor 3 — Línea 1100 
Valor 4 — Línea 1360 : 


Cada una de estas líneas corresponde 
a una pantalla distinta. Cada vez que el juga- 
dor haya superado una de las pantallas, el va- 
lor de NV se incrementará y, por tanto, se con- 
tinuará el juego en otra pantalla distinta. 

Línea 670. Se hace una llamada a la ru- 
tina encargada de poner las frutas en la pan- 
talla. ; 
Línea 680. Llamamos a la rutina que se 
encuentra a partir de la línea 2040 y que se 
encarga del movimiento del gusano. 

Línea 690. Aquí se realiza un bucle de 
retardo que es el que controla el tiempo que 
tarda en moverse el gusano entre posición y 
posición. Este bucle es el que define el juga- 
dor al elegir el nivel de juego. 

Línea 700. Volvemos a irnos a la línea 
670 para continuar con el juego. 

Hasta aquí podemos decir que llega el 
programa principal. A partir de esta línea em- 
piezan a aparecer todas las rutinas que hacen 
posible el juego. Unas se irán llamando a otras. 

Entre la línea 760 y 880 nos dedicamos 


a dibujar los límites de la pantalla o, mejor di: 
cho, los límites del campo sobre el cual se po- 
drá mover el gusano. La forma de hacerlo es 
muy sencilla. Lo único que hay que hacer es 
imprimir un rectángulo en la pantalla y que 
coincida con el máximo rectángulo que se 
puede realizar dentro de la misma. 

En la línea 950 sólo hay un RETURN, 
porque la primera pantalla es igual a los lími- 
tes del campo sobre el que se moverá el gu- 
sano. ; 
Las líneas comprendidas entre la 1010 
y la 1080 nos permitirán dibujar, aparte de los 
límites del campo, dos barras verticales, que 
actuarán como dos muros, con lo que el movi- 
miento del gusano se complicará un poco. Esta 
es la segunda pantalla que tendrá que sopor- 
tar el jugador si sobrepasa la primera. 

Las líneas del programa que van desde 
la 1150 y la 1340 nos imprimirá la tercera pan- 
talla de las que consta el juego. Esta pantalla 
es igual que la primera, pero con una subdi- 
visión del campo en el centro de la pantalla. 
Dicho campo tendrá dos pyertas (una a la de- 
recha y otra a la izquierda) para que el gusa- 
no pueda entrar y salir como quiera. 

El último grupo de líneas que se encar- 
ga de'imprimir pantalla se encuentra a partir 
de la línea 1410 y hasta la 1480. Esta cuarta 
pantalla es igual que la tercera, pero con la di- 
ferencia de que en mitad del cuadrado que se 
encuentra en medio del campo se imprime 
otra nueva muralla, esta vez maciza, para ha- 
cer más difícil el movimiento del gusano. 
Como sé puede apreciar en esta rutina, pri- 
mero se llama a la rutina encargada de dibu- 
jar la pantalla número tres y después se im- 
prime el nuevo muro. 

A continuación vienen el grupo de lí- 
neas que nos avisa que nos hemos chocado 
contra la pared: 


Línea 1560. Se advierte al jugador que 
se ha chocado con algunas de las paredes que 
hay en la pantalla. 

Línea 1570. Y le decimos que la próxi- 
ma vez tenga más cuidado. 

Línea 1580. Si el número de vidas (VV) 
era igual a uno (1), o sea, que ya no tiene nin- 
guna, se manda el control del programa a la 
línea 2450. En esta línea se imprime por pan- 
talla la tabla de ganadores. 

Línea 1590. Se resta uno al número de 
vidas. 

Línea 1600. Devolvemos el control de la 
línea 550. Hay que recordar que, a partir de 
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esta línea, se ponen a cero todos los elemen- 
tos de la matriz A(). 

Ahora viene el grupo de líneas que nos 
advierte que nos hemos chocado contra noso- 
tros mismos: 

Línea 1670. Se le dice al jugador que 
se ha chocado consigo mismo. 

Línea 1680. Se le manda un mensaje 
para que la próxima vez tengas más cuidado. 

Línea 1690. Si el número de vidas es 
igual a uno (y el jugador acaba de desperdi- 
ciar esta última vida) nos vamos a las subruti- 
nas de impresión de récords del día. 

Línea 1700. Le restamos uno al núme- 
ro de vidas. 

Línea 1710. Y nos volvemos a la línea 
550. A partir de esta línea, como ya hemos vis- 
to, volvemos a poner la variable numérica A(), 
y que controla todo lo que hay impreso en pan- 
talla, a cero. 

En el grupo de líneas que aparecen a 
continuación veremos cómo el programa se 
encarga de colocar, aleatoriamente, las frutas 
por la pantalla. 

Línea 1770. Sacamos un número aleato- 
rio entre 0 y 1, Si este número es mayor que 
0.1, entonces devolvemos el control al progra- 
ma principal. Aunque parezca que muy pocas 
veces aparecerá un número menor de 0.1, las 
veces que aparezca serán suficientes para las 
frutas que queremos colocar en la pantalla. In- 
cluso habrá veces en que el número de frutas 
sea mayor del deseado. En tal caso se puede 
cambiar esta línea por: 


1770 IF RND.085 THEN RETURN 
RND > .085 


Línea 1780. En el caso de que el núme- 
ro que nos ha salido sea menor de 0.1, enton- 
ces sacamos cuál de las cuatro frutas va a apa- 
recer en la pantalla. 

Línea 1790. Sacamos la posición, en X, 
de la pantalla donde se colocará dicha fruta. 

Línea 1800. Así como la posición en Y. 

Línea 1810. Miramos si dicha posición 
ya está ocupada por un muro, por el gusano o 
por otra fruta. En caso afirmativo, nos volve- 
mos al programa general. Podíamos habernos 
ido a la línea 1790, pero con esto conseguimos 
que el número de frutas en la pantalla se re- 
duzcá y que el programa no se vuelva lento. 

Línea 1820. Almacenamos en la matriz 
A( el valor de dicha fruta más uno (mírese un 
poco más arriba la razón de esto). 

Línea 1830. Colocamos el cursor en la 
posición que hemos hallado en las líneas 1790 
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y 1800 e imprimimos la fruta que elegimos en 
la línea 1780. 

Línea 1840. Devolvemos el control al 
programa principal. 

El siguiente grupo de líneas se encar- 
ga de mirar si el gusano ha chocado con algo, 
El gusano puede chocar: 


— Consigo mismo. 
— Con alguna de las paredes. 
— Con una de las frutas. 


Esta parte del programa no sólo mira si 
el gusano se ha chocado, sino, también, con- 
tra qué'ha chocado: 

Línea 1900. Preguntamos, mirando en 
la matriz AQ, si en la siguiente posición que 
tendrá el gusano hay algo. En caso negativo, 
devolvemos el control al programa principal. 

Línea 1910. Si en dicha posición nos en- 
contramos que hay un menos uno (-1), enton- 
ces significa que nos hemos chocado contra 
nosotros mismos. En ese caso nos vamos a la 
línea 1610, que ya hemos explicado, 

Línea 1920. Si lo que nos encontramos 
es un uno (1), entonces es que hemos chocado 
contra una pared. En ese caso transferimos el 
control del programa a la línea 1500. 

Línea 1930. Si en dicha posición no ha- 
bía pared y tampoco había parte del cuerpo 
del gusano, significa que nos encontramos 
ante una fruta, Entonces decimos que los pun- 
tos acumulados hasta el momento (SC) sean los 
que teníamos antes más 15 multiplicado por el 
valor de la matriz A() en dicho punto. 


LET SC=8C+15:'A(X, YN) 


También asignamos a la variable numérica LO 
el número de segmentos que crecerá el gusa- 
no. Este número será proporcional a la fruta 
comida por el gusano. 

Línea 1940. Se pregunta si el número 
de frutas que se ha comido el usuario es dis- 
tinto de quince (15). En caso afirmativo se 
suma uno al acumulador que se encarga de su- 
mar el número de frutas comidas y se devuel- 
ve el control al programa principal. Si se quie- 
re que el juego sea más complicado, sólo hay 
que cambiar el número máximo de frutas co- 
midas por pantalla. 

Línea 1950. En el caso de que el núme- 
ro de frutas sea igual a 15, entonces borramos 
la pantalla y hacemos que el número de frutas 
comidas sea igual a cero (0), para estar pre- 
parados para entrar en el siguiente nivel. 

En el grupo de líneas que aparece a 
continuación se le dice al jugador que ha ter- 
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minado con la pantalla. Dependiendo del nú- 
mero de pantalla en la cual se encontrase, se 
pasará a la siguiente (y se avisará al jugador) 
o se terminará el juego. Este termina cuando 
el jugador ha terminado las cuatro pantallas. 

En la línea 2020 se realiza un bucle de 
retardo y en la 2030 se manda el control del 
programa a la línea 2450. En esta línea se im- 
prime la tabla de récord del día. 

El grupo de líneas que aparecen a con- 
tinuación no tienen ninguna dificultad, salvo 
las últimas. El lector ha de estar preparado 
para conocer el funcionamiento del grupo de 
líneas que va desde la 2090 hasta la 2200. El 
resto de las líneas serán analizadas a continua- 
ción: 

Línea 2210. Como acabamos de impri- 
mir en pantalla una nueva posición del gusa- 
no, entonces tenemos que almacenar en la ma- 
triz AQ un menos uno en dicha posición. 

Línea 2220. Preguntamos si LO es igual 
a cero. Esta variable es igual a cero cuando no 
nos hemos comido ninguna fruta o cuando, 
después de habernos comido una, ya hemos 
crecido lo suficiente, En el caso de que dicha 
variable sea igual a cero, eso significa que la 
cola del gusano se tiene que mover. Para ha- 
cer esto nos vamos a la línea 2250. 

Línea 2230. Si dicha variable es distin- 
ta de cero, le restamos uno a su valor. Esto sig- 
nifica que el gusano tiene que seguir crecien- 
do. 

Línea 2240. Devolvemos el control al 
programa principal. 

Línea 2250. Colocamos el cursor en la 
posición de la cola del gusano. 

Línea 2260. Y borramos el último carác- 
ter, 

Línea 2270. Como hemos borrado dicha 
posición de la pantalla, también tenemos que 
borrarla de la matriz A(). Así lo hacemos. 

Líneas 2280 a 2310. En este grupo de lí- 
neas se mira por dónde continúa la cola del 
gusano. Una vez que se encuentra continua- 
ción se devuelve el control al programa prin- 
cipal. En este grupo de líneas se coge como 
continuación la parte del gusano que primero 
se vea. Con esto se consigue que, a veces, tro- 
zos del gusano permanezcan en pantalla, ha- 
ciendo más difícil el juego, ya que no se sigue 
exactamente el movimiento del gusano. 

Línea 2320. Devolvemos el control al 
programa principal. 

El grupo de líneas entre la 2380 y la 
2440 se encargan de preguntarle al usuario si 


desea jugar una nueva partida. Debido a la 
sencillez de esta parte del programa, no se ex- 
plica. 

A continuación viene la parte del pro- 
grama que se encarga de almacenar, impri- 
mir y pedir por pantalla los récords de los ju- 
gadores que han jugado hasta el momento. 
Esta parte del programa, por ser muy impor- 
tante en todos los programas de juegos, la ve- 
remos en sucesivos tomos. En ellos observare- 
mos cómo construirla y qué características tie- 
ne que tener. 

Por fin, el último grupo de líneas es el 
encargado de decir adiós al jugador; se en- 
cuentran a partir de la línea 2960 y hasta el fi- 
nal. Tampoco es necesario explicar su funcio- 
namiento, pues es de todos conocidos. 

Una vez que hemos visto cómo funcio- 
na el programa, nos podemos dar cuenta de 
que hacer un juego es algo muy sencillo. Pero 
esta sencillez se puede complicar casi hasta 
el infinito, ya que siempre se pueden añadir 
gráficos (en este caso habría que hacerlos 
desde el principio), aumentar el número de 
pantallas (por qué no lo intentáis), aumentar el 
grado de dificultad... 
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Una de las modificaciones que se pue- 
den realizar en este programa sin tener que 
pensar mucho es la siguiente. Se podría inten- 
tar que, de tanto en tanto apareciesen por la 
pantalla una serie de frutas que, en vez de au- 
mentar nuestra longitud, nos hiciese un poco 
más pequeños. 


Otras variaciones que os recomiendo 
que intentéis son: 


1. En vez de cambiar de pantalla cada 
15 frutas comidas, se puede modificar el pro- 
grama para que cambie al transcurrir un cier- 
to tiempo. : 

2. Se pueden añadir más pantallas al 
juego. 

3. Puede haber otro gusano moviéndo- 
se por la pantalla y con el cual tenemos que in- 
tentar no chocar. 


Como podéis ver, las modificaciones 
que se le pueden hacer a un programa son 
casi infinitas. Todo depende de uno mismo. 
Por eso mismo, si queréis realizar juegos que 
sean buenos en vuestro ordenador, es conve- 
niente que intentes practicar tú mismo. 


TRUCOS Y RUTINAS BASICAS 


OMO prometimos en el tomo 
anterior, en éste vamos a 
ver el funcionamiento del 
programa GESTOR DE FI- 
CHEROS, que apareció en el 
tomo 11. Como durante una 
serie de tomos hemos ido 
explicando el funcionamien- 
to de algunas rutinas, sólo veremos cómo fun- 
ciona el programa principal y todas aquellas 
rutinas que no hayamos visto o que aparecen 
con alguna modificación. 

Línea 220. En esta línea definimos una 
serie de vectores, numéricos y alfanuméricos, 
que serán los encargados de almacenar toda 
la información sobre el fichero. Estos vectores 
son: 


— F$0. En él almacenaremos todas las 
fichas del fichero. Cada elemento del vector 
se corresponde a un registro del fichero. 

— A$O0. En este vector almacenaremos 
las distintas opciones de los menús que tiene 
el programa. : 

— NO. Nos servirá para saber la defini- 
ción del fichero, 

— N$0. Esta es una matriz de dos di- 
mensiones. En ella almacenaremos todas las 
características de la impresión. Almacenare- 
mos el formato de impresión. 


Por supuesto, los índices de todos estos 
vectores se pueden variar dependiendo de las 
necesidades de cada usuario. Por ejemplo, si 
necesitamos un fichero en el que cada ficha 
pueda tener mil caracteres, entonces la matriz 
F$0 no podrá tener mil elementos, puesto que 
no habría memoria suficiente. En tal caso se 
recomienda cambiar la dimensión de los vec- 
tores cuando sea necesario. 
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Línea 230. Definimos la variable TT con 
valor cero. Esta variable será la que nos indi- 
cará el número de fichas en memoria que tie- 
ne el fichero. 

Línea 240. Borramos la pantalla. 

Línea 250. Definimos la variable A$ con 
un mensaje. Si se recuerda, a la rutina de crea- 
ción de menús teníamos que pasarle una se- 
rie de parámetros. Uno de ellos es la cabece- 
ra de dicho menú. 

Línea 260. Asignamos a N el número de 
opciones que tiene dicho menú. 

Líneas 270 y 280. Asignamos a los dos 
primeros elementos de la matriz A$0) las dos 
opciones del menú. 

Líneas 290 y 300. Definimos cuál pue- 
de ser el carácter con código ASCII más alto 
que puede pulsar el usuario, y el que tiene có: 
digo ASCII más bajo. 

Línea 310. Llamamos a la subrutina de 
creación de menús. Como $e recordará, esta 
rutina no sólo crea el menú, sino que también 
se encarga de recoger la opción del usuario y 
borrar la pantalla. 

Línea 320. Si el usuario respondió con 
un uno (1), o lo que es igual, 41 el usuario quie- 
re definir un fichero nuevo, nos vamos a la lí- 
nea 7250. Esta rutina ya la vimos en tomos an- 
teriores, por lo que no en necenario explicar- 
la. Cuando el programa termina con esta ruti- 
na, y vuelve al programa general, se transfie- 
re de nuevo el control del programa a la línea 
240. 

Línea 330, En el caño de que el usuario 
quiera entrar en el menú principal (pulsó un 
ber (2) en el menú general), borramos la pan- 
talla. 

Lineas 340 a 440, ln ente grupo de lí- 
neas s0 realiza la misma operación que en las 
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que hemos visto un poco más arriba. Lo que 
hacemos es definir la cabecera del menú prin- 
cipal, las opciones de éste, el número de op- 
ciones y el carácter con el código ASCII más 
alto permitido. Grupos de líneas como éste se 
repiten durante todo el programa cada vez 
que es necesario imprimir un menú por la pan- 
talla. 

Línea 450. Llamamos a la rutina gene- 
rtadora de menús para que me imprima el 
menú general. 

Línea 460. Hacemos que la variable nu- 
mérica A adquiera el valor de A$. Como A$ 
será un carácter comprendido entre el carác- 
ter 1 y el carácter 8, A tomará el valor de di- 
cho carácter. 

Línea 470. Según el valor de la varia- 
ble A, nos iremos a una de las líneas que apa- 
recen a continuación y cuya función es la si- 
guiente: 

490. A partir de esta línea se encuentra 
la parte del programa que nos permitirá intro- 
ducir fichas nuevas en el fichero, 

650. Nos vamos a la parte del programa 
que se encarga de gestionar las fichas. Esta 
gestión consiste en borrar una ficha, limpiar el 
fichero de fichas borradas, modificar una ficha 
y ver una ficha en particular. 

1050. Aquí empieza la parte del progra- 
ma que se encarga de ordenar las fichas. 

1150. A partir de esta línea empieza la 
parte del programa que nos permitira buscar 
una o más fichas. Podremos buscar fichas pre- 
guntando por el valor de un cierto campo, por 
su numeración o bien buscar, y ver, las fichas 
que hemos borrado en otro momento. 

1450. Para todo lo relacionado con la 
grabación del fichero. 

1990. Para leer un fichero. 

2550. A partir de esta línea se encuen- 
tran las rutinas que nos permitirán definir la 
impresión e imprimir las fichas. 

3200. Para terminar la sesión de hoy con 
el programa. 


Línea 480. Una vez que el programa 
haya hecho lo que nosotros le hayamos dicho 
en cualquiera de las partes del programa que 
acabamos de ver, entonces nos volvemos al 
menú principal. 

Hasta aquí se puede considerar que lle- 
ga el cuerpo del programa principal. A partir 
de esta línea, nos vamos a encontrar las diver- 
sas parles del programa que se encargan de 
gestionar todas las funciones que es capaz de 
realizar. 
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Línea 520. Entramos de lleno en la par- 
te que nos permitirá introducir fichas. Borra- 
mos la pantalla. 

Línea 530 y 540. Sacamos un mensaje 
por pantalla para que el usuario sepa en qué 
parte del programa se encuentra, 

Línea 550. Se saca un mensaje dicien- 
do el número de fichas que tenemos en me- 
moria. 

Línea 560. Hacemos que NF (Número 
de Ficha) sea igual al número de fichas más 
uno. Esta variable es la que va a controlar el 
número de ficha que vamos a introducir. Por 
tanto, es lógico que su valor sea una unidad 
más alto que TT. En esta línea también defini- 
mos que la ficha NF es igual al carácter 254. 
Si nos acordamos, el carácter 254 iba a ser el 
encargado de separar los diferentes campos 
del registro, 

Línea 570. Nos vamos a la línea 8010. 
En esta línea y en las siguientes, será donde, 
en realidad, introduzcamos las fichas. 

Línea 580. Hacemos que TT (número de 
fichas en memoria) se incremente en uno. 

Línea 590. Y colocamos el cursor en la 
línea 20 para O 

Línea 600. .. si deseamos introducir 
otra ficha. 

Líneas 610 a 640. Se recoge del tecla- 
do la respuesta del usuario. Si ésta resultó afir- 
mativa, nos volvemos a la línea 490. En caso 
contrario, devolvemos el control al programa 
general. Si el usuario no pulsó ni S ni N, en- 
tonces se vuelve a preguntar. 

A partir de la línea 680 se encuentra la 
parte del programa que se encarga de gestio- 
nar las fichas. En esta parte del programa, de- 
bido a que tenemos varias opciones posibles, 
necesitamos un menú, Así entre las líneas 680 
y 7140 nos encargamos de fabricarlo, por así 
decirlo, y de mandar el control del programa 
a la rutina creadora de menús. 

Línea 760. Según la opción elegida, por 
el usuario, nos vamos a una línea o a otra. 

Línea 770. A partir de esta línea nos en- 
cargaremos de borrar una ficha. En esta línea 
y en la siguiente sacamos un mensaje por pan- 
talla para informar al usuario, 

Línea 800. En el caso de que no haya fi- 
chas en el fichero (en el caso de que el fiche- 
ro no esté definido), se imprime un fichero ad- 
virtiéndolo y se transfiere el control a la línea 
5440. A partir de esta línea se encuentra la ru- 
tina encargada de esperar que el usuario pul- 
se una tecla. Una vez que lo ha hecho, se de- 
vuelve el control al programa principal. 


Línea 810. Se pregunta el número de fi- 
cha que se quiere borrar. 

Línea 820. Si el número de ficha no está 
dentro de los límites permitidos, se vuelve a 
realizar la misma pregunta. 

Línea 830. Y borramos la ficha. Se re- 
cordará que no se borraban realmente las fi- 


chas, sino que se les ponía el carácter 253 de- . 


lante de su contenido como una bandera que 
nos indicase que dicha ficha estaba borrada. 

Línea 840. Retornamos al programa 
principal. 

Línea 850 y 860. Se advierte al usuario 
que vamos a limpiar el fichero de todas las fi- 
chas borradas. 

Línea 870. Transferimos el control a la 
rutina limpiadora. 


Línea 880. Y devolvemos el control al 
programa principal. 

Líneas 890 a 910. Sacamos un mensaje 
por pantalla avisando al ordenador que esta- 
mos en la parte del programa encargada de 
modificar fichas. 

Línea 920. Se pregunta qué ficha que- 
remos modificar. 

Línea 930. Si el número de ficha intro- 
ducido no existe (no está dentro de los límites 
permitidos), se advierte al usuario que dicha 
ficha no existe, se imprime el mensaje de pul- 
sa una tecla (GOSUB 5440) y se retorna al pro- 
grama principal. 

Línea 940. Nos vamos a la línea 8290. 
En esta línea y en las siguientes lo que el pro- 
grama hace es imprimir por pantalla el conte- 
nido de dicha ficha. 

Línea 950. Borramos la pantalla. 

Línea 960. Y llamamos a la rutina de in- 
troducción de fichas para que el usuario mo- 
difique la ficha. 

Línea 970. Devolvemos el control al 
programa principal. 

Línea 980. A partir de esta línea empie- 
za la rutina que nos permitirá ver el contenido 
de una ficha. z 

Línea 1010. Se pregunta por el número 
de ficha. 

Línea 1020. Si la ficha no existe, enton- 
Ces se avisa al usuario y se le pide que pulse 
una tecla (GOSUB 5440) y se devuelve el con- 
trol al programa principal. 

Línea 1030. Llamamos a la rutina que se 
encuentra a partir de la línea 8290 y que se 
encargará de hacer visible dicha ficha. 

Línea 1040. Devolvemos el control al 
programa principal. 
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Líneas 1090 a 1110. Nos encontramos 
en la parte del programa que se encarga de 
gestionar la ordenación de las fichas. 

Línea 1120. Se le pregunta al usuario 
por qué campo quiere ordenar el fichero. 

Línea 1130. Llamamos a la rutina orde- 
nadora. Como recordaréis, es la propia rutina 
la que se encarga de mirar si el campo por el 
Cual el usuario quiere ordenar existe o no. 

Línea 1140. Y se devuelve el control al 
programa principal. 

Las líneas que vienen a continuación se 
encargan de preparar todas las variables ne- 
cesarias para la impresión del menú de bús- 
queda de fichas y de llamar a la subrutina de 
creación de menús. 

Línea 1330. Dejamos dos líneas en blan- 
co, después de decirle al usuario en qué par- 
te del programa nos encontramos y hacemos 
que la variable SW adquiera el valor de la op- 
ción elegida por el usuario menos uno. Se re- 
cordará que SW es la variable que le dice a 
la rutina de búsqueda qué tipo de búsqueda 
quiere el usuario. 

Línea 1340. Según la opción elegida 
por el usuario, nos vamos a una línea o a otra. 

Entre las líneas 1350 y 1380, como el 
usuario quiere buscar por número de ficha, se 
pregunta desde qué ficha hasta qué ficha se 
va a realizar la búsqueda. 

Entre las líneas 1390 y 1420, como el 
usuario quiere buscar las fichas que tengan un 
cierto valor en un cierto campo, se le pregun- 
ta qué valor y qué campo. 

Por fin en la línea 1430 se realiza una 
llamada a la rutina que se encarga de buscar 
las fichas. Dentro de esta rutina, que ya hemos 
explicado, no sólo se buscan las fichas, sino 
que también se llama a la rutina encargada de 
imprimirlas. 

A partir de la línea 1450 están localiza- 
das las rutinas encargadas de grabar el fiche- 
ro. Primero se creará un submenú en el cual 
se pregunta al usuario si la grabación va a ser 
en disco o en cinta, Según la opción escogida, 
el ordenador saltará a la línea 1640 oa la 1810. 
Por supuesto, antes de ir a ninguna de estas lí- 
neas, se pregunta con qué nombre se grabará 
el fichero. 

Como ambos grupos de líneas son muy 
parecidos, la única diferencia es el canal por 
el cual se graba, explicaremos sólo uno de 
ellos. La otra opción de grabación es exacta- 
mente igual, 

Línea 1640. Se abre el fichero con el 
nombre que ha dado el usuario. En el SPEC- 
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TRUM, como no es necesario abrir un fichero 
para grabar en él, se graba directamente so- 
bre el vector NO. 

Línea 1650. Primero grabaremos la 
configuración del fichero. Así, en esta línea 
grabamos el número de campos de cada ficha. 
En el programa que tienen los usuarios del 
SPECTRUM, en esta línea se graban los nom- 
bres de cada campo. 

Línea 1660. A partir de esta línea co- 
mienza un bucle, denro del cual se va a gra- 
bar la configuración del fichero. En el SPEC- 
TRUM, esta línea se encarga de grabar el con- 
tenido del fichero. 

Línea 1670. Se graban uno a uno los ele- 
mentos del vector N(). En el SPECTRUM, esta 
línea graba la configuración de la impresión 
por impresora. 

Línea 1680. Aquí se acaba el bucle y co- 
mienza otro dentro de cual se grabarán los 
nombres de cada campo. 

Línea 1690. Se graban los nombres de 
los campos uno a uno. 

Línea 1700. Y se termina el bucle. Tam- 
bién se graba el número de fichas de las que 
consta el fichero. 

Línea 1710. Comienza un bucle dentro 
del cual se grabarán todas las fichas que hay 
actualmente en el fichero. 

Línea 1720. Se graban dichas fichas 
una a una. 

Línea 1730. Aquí termina el bucle en- 
cargado de grabar todas la fichas. 

Líneas 1740 y 1750. Comienza un nue- 
vo bucle, esta vez anidado, dentro del cual se 
grabará la definición de impresión de las fi- 
chas. 

Línea 1760. Se graban uno a uno los 20 
posibles elementos de la matriz N$() que con- 
trola el formato de impresión. 

* Líneas 1770 y 1780. Aquí se acaba el 
bucle anidado. En este caso es doble, porque 
la matriz tiene dimensión dos. 

Línea 1790. Se cierra el fichero. 

Línea 1800. Y se devuelve el control al 
programa principal. 

Como se ha dicho anteriormente, el 
grupo de líneas que va desde la 1810 hasta la 
1990 se realiza lo mismo que hemos visto an- 
teriormente, pero en cintá. 

Hay que decir que los usuarios del 
SPECTRUM, si no tienen el INTERFACE 1, a la 
hora de intentar meter el grupo de líneas com- 
prendido entre la 1640 y la 1800, no van a po- 
der. Esto es debido a que el SPECTRUM sin el 
INTERFACE 1 no pueden entender los coman- 


dos que se tienen que introducir. Según esto, 
dichos usuarios sólo tendrán que introducir el 
grupo de líneas que va desde la 1810 hasta la 
1990. 

A continuación, y entre las líneas 2000 
y 2160 aparece la parte del programa encar- 
gada de gestionar la lectura de fichero. Lógi- 
camente dicha lectura puede hacerse desde 
un disco o desde una cinta. En este grupo de 
líneas se crea un nuevo submenú para que el 
usuario elija su opción y se le pregunta el nom- 
bre del fichero a leer. Como hay dos posible 
opciones de grabación, grabar en disco o en 
cinta, según lo elegido nos iremos a la línea 
2170 o a la 2360. Como hemos hecho anterior- 
mente, sólo veremos la primera de las opcio- 
nes, ya que la segunda es igual y sólo se dife- 
rencia en el canal empleada para la graba- 
ción. 

Línea 2170. Abrimos el fichero que tie- 
ne el nombre B$ para leer de él toda las fi- 
chas. En el SPECTRUM leemos el vector NO. 

Línea 2180. Leemos del fichero el valor 
de N(1). Este nos dice el número de campos 
que aparecerán a continuación. En el SPEC- 
TRUM leemos el vector M$0. 

Línea 2190. Aquí comenzamos un bucle 
dentro del cual vamos a ir leyendo toda la con- 
figuración del fichero, En el SPECTRUM lee- 
mos el vector F$0. ' 

Línea 2200. Vamos leyendo uno a uno 
todos los elementos del vector N(). En el SPEC- 
TRUM leemos la matriz N$(0. 

Línea 2210. Aquí se termina el bucle. 

Línea 2220. Comenzamos un nuevo bu- 
cle dentro del cual vamos a leer los nombres 
de los campos. 

Línea 2230. Y vamos leyendo, uno a uno 
y según va avanzando el bucle, los nombres 
de todos los campos. 

Línea 2240. Aquí termina el bucle. 

Línea 2250. Leemos del fichero el nú- 
mero de fichas que tiene y lo almacenamos en 
la variable numérica TT. 

Línea 2260. Comenzamos un bucle des- 
de uno (1) hasta el número de fichas que tiene 
el fichero (TT) dentro del cual leeremos di- 
chas fichas, 

Línea 2270. Y las vamos leyendo una a 
una. 

Línea 2280. Aquí termina el bucle. 

Líneas 2290 y 2300. Se realiza un bucle 
anidado dentro del cual se van a leer todos los 
elementos de la matriz N$0. Esta matriz es la 
que almacena el formato de impresión de las 
fichas. 
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Línea 2310. Leemos los elementos de la 
matriz N$0. $e 

Línea 2320 y 2330. Aquí termina el bu- 
cle anidado. 

Línea 2340. Cerramos el fichero. 

Línea 2350. Y devolvemos el control al 
programa principal. 

Entre las líneas 2550 y 2650 vamos a 
crear un nuevo submenú que le permitirá al 
usuario: bien imprimir las fichas, bien definir 
el formato de impresión que desea. Si el usua- 
rio elige imprimir las fichas, se transfiere el 
control del programa a la línea 2660. En caso 
contrario (el usuario desea definir la impre- 
sión), nos vamos a la línea 3390. 

Si el usuario eligió imprimir las fichas, 
entonces se pregunta si está definido el for- 
mato de impresión. En caso negativo, se im- 
prime un mensaje avisándolo y el programa 
vuelve al menú principal. En caso de que di- 
cho formato sí esté definido, entonces se com- 
prueba que hay fichas en el fichero. Si no las 
hubiese, el programa informaría de ello y vol- 
vería al menú principal. 

Cuando, por fin, todas estas pruebas 
han sido superadas, se le dice al usuario que 
prepare la impresora y pulse una tecla. En el 
momento en que lo hace se le dan por panta- 
lla los siguientes datos: 


— Los campos se imprimirán. 

— El orden de los campos en el papel 
de la impresora. 

— La tabulación donde se imprimirán 
dichos campos. 

— El espacio que habrá entre ficha y fi- 
cha. El ordenador nos dice el número de lí- 
neas entre ficha y ficha o, en el caso de que 
esté definido, que habrá un salto de página. 


A continuación, y entre las líneas 2960 
y 3190 se realiza la impresión de las fichas. La 
explicación de estas líneas es la siguiente: 

Línea 2960. Se llama a la rutina que está 
a partir de la línea 3150 y cuya función es im- 
primir la cabecera del fichero, 

Línea 2970. Se pone la variable CC a 
cero. Esta variable es auxiliar. 

Línea 2980. Comenzamos un bucle en- 
tre uno (1) y el número de fichas en el fichero 
(TT) dentro del cual imprimiremos todas las fi- 
chas. También se inicializa la variable CR a 
uno. Esta variable tiene que valer uno cada 
vez que el bucle da la vuelta. 

Línea 2990. Comenzamos un bucle, que 
controlará el vector N() dentro del cual impri- 
miremos todos los campos que el usuario de- 
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finió. Hacemos que otra variable (CD) valga 
cero. 

Línea 3000. Si resulta que el elemento 
R,2 del vector de impresión es igual a una ca- 
dena vacía ("), entonces es que hemos impri- 
mido todos los campos que teníamos que im- 
primir de la ficha en curso. En ese caso hace- 
mos que R sea igual a 20 y nos vamos al final 
del segundo bucle. 

Línea 3010. Almacenamos en CC el nú- 
mero del primer campo a imprimir, 

Línea 3020. Comenzamos un bucle den- 
tro del cual vamos a buscar dentro de la ficha 
en curso, en qué posición empieza el cam- 
po CC. ¿ 

Línea 3030. Buscamos el campo CC 
dentro del registro. Una vez encontrado, alma- 
cenamos su posición en la variable Z1. 

Línea 3040. Aquí termina el bucle de 
búsqueda. También en esta línea colocamos la 
cabeza de la impresora en la columna donde 
queremos que se imprima el campo que esta- 
mos procesando. 

Línea 3050. Empieza otro bucle dentro 
del cual vamos a imprimir dicho campo. 

Línea 3060. Como el campo se imprime 
letra a letra, para controlar el final del mismo 
se pregunta por el carácter 254. Cuando éste 
aparece, es que hemos imprimido todos los ca- 
racteres. En ese caso hacemos que la variable 
índice del bucle tenga el máximo valor posi- 
ble para poder salir del bucle, 

Línea 3070. Imprimimos el carácter que 
corresponda según el valor del bucle, 

Línea 3080. Aquí termina el bucle en- 
cargado de imprimir el campo en curso. 

Línea 3090. Termina el bucle que ge an: 
carga de cambiar el campo a imprimir. 

Línea 3100. Si el usuario quería cam- 
biar de página cada vez que se imprimiene 
una ficha, entonces cambiamos de página y 
volvemos a imprimir la cabecera, 

Línea 3110. En caso contrario, na dejan 
tantas líneas en blanco como 3e expecificaron 
en la definición. 

Línea 3120. Aquí termina el huele que 
se va moviendo desde la primera a la Úlima 
ficha. 

Línea 3130. Imprimimos una linea llena 
de guiones para especificar que pe ha ler 
nado la impresión. 

Línea 3140. Volvemos Al programa 
principal. 

Línea 3150. Aquí omploza la rulina que 
se encarga de imprimir la cabecera, La 04 
cera consiste an el nombre de los pampor A 


mir y en una línea de guiones para sepa- 
rar el nombre de los campos de los campos. 
in esta línea comienza un bucle dentro del 


cual se imprimirán todos los nombres. 


Línea 3160. Si el elemento 5,2 de la ma- 
triz de impresión N$(0 es una cadena vacía, en- 
tonces es que hemos imprimido todos los nom- 
bres de los campos que se van a imprimir. En 
ese caso hacemos que $ sea igual a 20 y nos 
vamos al final del bucle. 

Línea 3170. En caso contrario tabula- 
mos a la posición elegida por el usuario e im- 
primimos el nombre de dicho campo. 

Línea 3180. Aquí se termina el bucle y 
se imprime una línea de guiones. 

Línea 3190. Se devuelve el control a la 
rutina de impresión. 


Entre las líneas 3230 y 3380 se pone fin 
al programa, pero, antes de terminarlo, se pre- 
gunta al usuario si está seguro de lo que quie- 
re hacer. Esto se ha hecho así como medida 
de protección ante situaciones que se puedan 
dar sin que el usuario las desee. 

Todavía quedan por explicar unas 
cuantas rutinas que no se explicaron anterior- 
mente, como son la de visualización de una fi- 
Cha y la de entrada de fichas nuevas. También 


'hay que darle un repaso a aquéllas que fue- 
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ron variadas a última hora para aumentar su 
eficacia y velocidad. Por ello, en el próximo 
tomo veremos lo poco que nos falta por cono- 
cer sobre el programa GESTOR DE FICHE- 
ROS. 


EL TALLER DEL HARDWARE 


Reloj de tiempo real 


N el tomo anterior hemos 
visto cómo pueden realizar- 
se medidas precisas de in- 
tervalos de tiempo utilizan- 
do el propio reloj del orde- 
nador personal o bien un os- 
cilador adicional y contado- 
res apropiados. 

Existen aplicaciones en las cuales es 
conveniente conocer el día, la hora y hasta el 
segundo en el que se realiza una medida con 
mucha precisión. Para estos casos el reloj de- 
ducido del que posee el ordenador no suele 
presentar la precisión y la estabilidad adecua- 
da. Además es normal apagar la máquina 
cuando no se está utilizando, con lo que se 
pierde la información almacenada indicando 
la fecha y la hora. Por estas razones es cada 
vez más frecuente encontrar.en los ordenado- 
res un reloj alimentado por batería que con- 
serva la fecha y la hora aunque se apague la 
máquina. Este reloj puede venir ya incluido en 
el equipo inicial o se puede adquirir como una 
opción. 

Se entiende generalmente por reloj de 
“tiempo real” al que da la indicación de tiem- 
po sin ser afectado por el funcionamiento del 
sistema y en sincronismo con el tiempo nor- 
mal del exterior. Es decir, es una reproducción 
de la hora y la fecha oficial, que no se altera 
por la ejecución de las operaciones del siste- 
ma. La mayoría de las operaciones que reali- 
za el ordenador en comunicación con los pe- 
riféricos pueden originar la pérdida de una 
cuenta del reloj interno. Esto es así incluso en 
el caso de ser la interrupción del reloj la más 
prioritaria, pues en determinadas circunstan- 
cias de error es necesario mantener inhibidas 
las interrupciones y, por tanto, la cuenta del re- 
loj. Esto no quiere decir que el reloj indicado 
por el sistema no sea fiable. La hora indicada 
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puede tomarse como indicación aproximada, 
pero cuando se necesita de verdad la hora de 
"tempo real” es necesario utilizar un circuito 
apropiado para esta función, 

Vamos a describir diferentes formas de 
realizar un reloj de tiempo real accesible des- 
de el ordenador y la programación necesaria 
para utilizarlo, 


Reloj a partir de la señal de red 


La tensión de alimentación de los equi- 
pos eléctricos domésticos está generada por 
equipos de muy diferentes tipos pero conec- 
tados entre sí, formando una verdadera red, 
Los generadores disponen de equipos de con- 
trol muy sofisticados para garantizar unos 
márgenes de funcionamiento y seguridad 
adecuados para las aplicaciones domésticas e 
industriales. Una de las características de ma- 
yor importancia es la frecuencia de la señal, 
Debe ser muy estable, pues pequeñas varia- 
ciones originarían alteraciones de los sistemas 
síncronos que se encuentran conectados. 

Por tanto, la señal de red puede tomar- 
se como referencia para la generación de una 
señal patrón, siempre que nuestro sistema 
pueda filtrar los ruidos que pueden presentar: 
se por efecto de la conmutación de otros aqui 
pos y que tenga algún circuito alternalivo para 
el caso de que falle la red general de alimon 
tación. Es decir, la red es una buena releren- 
cia, pero hay que tener previsto que puede 
faltar, aunque sea por períodos de liempo po 
queños. 

El circuito de la figura permite generar 
una señal de 50 Hz. a partir de la poñal del ho 
cundario de un transformador Podría por el 
mismo transformador empleado para la obten: 
ción de la alimentación de 4 voltios para los 
circuitos lógicos, Para poder disponer de la 
señal de red aun cuando no 16 entó alimentan 
do al sistema, deberemos añadir otro tranalor 
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Generación de señal de 50 Hz. a partir de la red. 


2 1N4001 


Fig. 1, 


mador que esté siempre conectado. Se filtra la 
señal, para impedir que los ruidos de la red 
aparezcan en la entrada de los contadores, y 
después de rectificada se hace cuadrada me- 
diante circuitos con histéresis. El diodo D2 in- 
pide que aparezca tensión negativa a la entra- 
da de las puertas, que las dañaría irreversible- 
mente. 


Con la señal de 50 Hz. podemos gene- 
rar otras frecuencias, mediante contadores di- 
visores. Si utilizamos divisores de décadas, ob- 
tendremos los valores de 5, 1 y 0,1 Hz., según 
se indica en la figura: 


Fig. 2. Contadores divisores. 


. 


El circuito 741590 es un divisor por 10, 
separado en un divisor por 2 y un divisor por 
5. Puede ponerse a 0 o a 9, según se activen 
las entradas de Reset o de Set. 


O. o—1 165 Veo 
Q1s o—-24/74HC4020 | 15-—¿ Qu 
Qu o—3 —o Lio 

0 04 135 Q3 

05 o—3 12 ¿Qs 

07 06 11 ¿RESET 
TES 10 ¿RELOJ 
GND ¿—8 9 ¿9 


Fig. 3. Circuito divisor de 14 etapas. 
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Las salidas de las frecuencias de base 
pueden utilizarse de la misma manera que vi- 
mos en el tomo anterior. Para que el sistema 
pueda funcionar autónomamente, dispondre- 
mos de los contadores necesarios para gene- 
rar un pulso por cada minuto, hora y día. El nú- 
mero de contadores puede parecer elevado, 
pero se encuentran con facilidad circuitos que 
incluyen todas las etapas necesarias en un 
solo circuito integrado. En la figura se mues- 
tra uno de ellos que se conectará a la etapa ge- 
neradora de la señal de referencia. 


Reloj basado en circuito 
con oscilador de cuarzo 


Una forma de eliminar la necesidad de 
la conexión a la red y, por tanto, evitar los mi- 
crocortes que en ésta pueden producirse es 
disponer de un oscilador basado en un cristal 
de cuarzo. Además, son fáciles de encontrar 
circuitos como el MM5369 que además del os- 
cilador disponen de los divisores para gene- 
rar una señal de frecuencia igual a la de la 
red. 


El elemento base para la estabilidad es 
el cristal de cuarzo. La frecuencia de referen- 
cia dbtenida es de 50 ó 60 Hz., según el tipo. El 
AA genera 60 Hz. y el EYR genera 50 Hz. El 
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O 
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SALIDA 1 8 OSC IN 
: z VDD 
vSS TUNCROUT 
e 3 6 osc 
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IN 
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Fig. 4. Reloj de tiempo real utilizando circuito con oscilador de cuarzo. 
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, 32.168 


Fig. 5. Reloj de tiempo real con cristal de 32.768 Hz. 


cristal es en cualquiera de los casos el de 
3,5795 MHz. utilizado en la televisión de nor- 
ma NTSC. A partir de esta frecuencia genera- 
mos las señales de referencia de 1 Hz. y de- 
más con los circuitos de las figuras anteriores. 

Otro tipo de circuito integrado permite 
la generación de la señal de referencia utili- 
zando un cristal de cuarzo como los de los re- 
lojes de pulsera. 

Este circuito permite obtener también 
señales de 1 y 10 Hz. Además dispone de una 
entrada de control para seleccionar los divi- 
sores internos que generen la salida funda- 
mental de 50 ó 60 Hz. 

El sistema puede en cualquier momen- 
to acceder a la hora a través de puertos de en- 
trada conectados a las salidas de los contado- 
res. El programa deberá realizar la conversión 
de los valores leídos para presentarlos en la 
forma acostumbrada. Si se utilizan contadores 
de décadas la conversión es más sencilla. Se 
hará cada cuatro bits la conversión de BCD a 
cada uno de los caracteres de la hora. Si los 
contadores son binarios, será necesario leer el 
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7 SELECCION 50/60 


ODoscin EQ) 


valor total y después hacer una conversión al 
formato de la hora mediante divisiones suce- 
sivas, tomando el cociente entero como valor 
de cada cifra y el resto como dividendo para 
la cifra siguiente. 


Reloj con circuitos específicos 


Existen circuitos integrados específicos 
para la generación de la fecha y la hora y que 
pueden conectarse directamente al bus de un 
ordenador personal. Todos ellos disponen de 
los circuitos de direccionamiento para acce- 
der a cada una de las posiciones internas, don- 
de se almacenan la fecha y la hora mientras 
haya alimentación. Los circuitos están realiza- 
dos en tecnología CMOS, por lo que presentan 
muy bajo consumo, lo que les hace fácilmente 
alimentables con baterías de níquel-cadmio O 
simplemente con pilas de litio, desechables al 
cabo de 2 Ó 3 años. Ofrecen algunas funciones 
adicionales como la generación de alarma, la 
conexión a circuitos de presentación de la 
hora o la generación de interrupción progra: 
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MULTIPLEXOR MULTIPLEXOR R/W 


Fig. 6. Diagrama de bloques del MM581744. 


mable para sincronizar el reloj realizado por EE 
programa con el de tiempo real. «Dirección Registro / Función 
El consumo es realmente bajo, 12 mi- AD3 AD2 AD1 ADO 

liamperios en modo normal y unos 20 mi- 
croamperios en modo reposo. La tensión de 
alimentación mínima es de 2,2 voltios. Tienen 
una entrada de indicación de modo reposo, 
que desactiva la circuitería interior que debe 
ponerse en bajo consumo, pasando a circuito 
abierto los amplificadores de tres estados de 
comunicación con el bus de datos. 


Prueba 

Décimas de segundo 
Segundos 

Decenas de segundos 
Minutos 

Decenas de minutos 
Horas 

Decenas de horas 
Días 

Decenas de días 

Día de la semana 
Mes 

Decenas de mes 

Año 

Arranque / Parada 
Interrupción y estado 


Circuito MM58174A 


Es un circuito muy simple en formato de 
16 patillas. Es programable y puede generar 
interrupciones programadas cada medio se- 
gundo y 5 y 60 segundos. Utiliza un cristal de 
cuarzo de 32.768 Hz. Dispone de funciona- 
miento en bajo consumo. La conexión al bus se 
hace con 4 bits, siendo cada registro codifica- 
do en BCD. Cada registro se accede como una 
dirección de memoria o de puerto de entra- 
da-salida. 


RRA >» == O0O0O0OO0O0OO0OoOo 
R=0O0O0Orroo0orrO0oO0o0rrOOo 
4.0: O 0.04 O 000 


0 
0 
0 
0 
1 
1 
1 
1 
0 
0 
0 
0 
1 
1 
1 
1 


Los registros por encima del 3 pueden 
ser escritos, para definir la hora y día iniciales. 


Direcciones y funciones del Circuito MM58167A 


MM58114A Es un circuito algo más complejo, en 

Según la asignación de los bits de di- formato de 24 patillas y que incluye funciones 
rección se accede a los diferentes registrosin- adicionales como interrupción a hora progra- 
ternos del circuito, según la siguiente tabla: mable. 
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MM58174A 


Fig. 7. Patillas del MMS8174A. 


CONTADOR 


Do 

D, 

D, 

D, AMPLIS 
E/S 


u 
e 
OOOO0OOOOO 


A, DECODI- 
A, FICADOR DIRECCIONES 
DIRECCION SELECCIONADAS 


Fig. 8. Diagrama de bloques de MMS8167A RTC. 
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Direcciones y funciones 
del MM58167A 


Este circuito presenta dos juegos de di- 
recciones: uno para el reloj propiamente di- 
cho y otro para la programación de la A 
según 13 siguiente tabla: 


Dirección 
AD4 AD3 AD2 AD1 ADO 


Registro / Función 


o 


Diezmilésimas de 
segundo 
Centésimas y déci- 
mas de segundo 
Segundos 

Minutos 

Horas 

Día de la semana 
Día del mes 

Mes 

RAM Diezmilési- 
mas de segundo 
RAM Centésimas y 
décimas de segun- 
do 

RAM Segundos 
RAM Minutos 

RAM Horas 

RAM Día de la se- 
mana 

RAM Día del mes 
RAM Mes 

Registro de estado 
de Interrupción 
Registro de control 
de Interrupción 
Borrado de conta- 
dores 

Borrado de RAM 
Bit de estado 
Comando de 
arranque 
-Interrupción en 
espera 

Modo de prueba 


DUO 


o Oo00o0o0o0o0Oo o [e] 
la o e o o o 

[a] ESAS o o 

o ¡SRA MS 


rua 


1 
1 
1 
1 


o ooo o o Oi 


n= 


Las posiciones de contador o de la RAM 
de alarma pueden leerse y escribirse según 
se active la señal de Read o Write del circui- 
to. Si el sistema en el que se instala es rápido, 
puede usarse la señal de Ready para prolon- 
gar el ciclo de lectura o escritura. 


El MM56167A se conecta al sistema 
como un dispositivo de entrada-salida o como 
memoria. La conexión al bus se hace a 8 hilos. 
El cristal de cuarzo utilizado es de 32.768 Hz. 
La alimentación puede bajar hasta 2,2 voltios. 
Para que a esta tensión pueda mantener la in- 
formación es necesario que se active la entra- 
da de Pérdida de alimentación (-Pwr Dn). 


Ejemplo de aplicación 


Veamos la forma de realizar un circuito 
práctico para dotar a nuestro ordenador per- 
sonal de un reloj de tiempo real. La conexión 
podemos hacerla a través de la tarjeta de am- 
pliación de puertos de entrada salida o direc- 
tamente al bus de datos, si utilizamos las seña- 
les de direccionamiento que se indican. Se 
propone utilizar uno de los relojes más comu- 
nes que además utiliza un cristal de cuarzo de 
los empleados en los relojes de pulsera, por lo 
que es fácil de encontrar. 

Como explicaciones de interés es con- 
veniente mencionar que al disponer interna- 
mente de varias posiciones de memoria, es ne- 
cesario decodificar de forma diferente a como 
lo hemos hecho para la conexión a través de 
puertos. Hay que decodificar solamente los 
bits altos de dirección, hasta A5. Para las má- 
quinas que disponen de poco espacio de di- 
recciones puede montarse una pequeña varia- 
ción del circuito, que contenga un contador 
para direccionar cada una de las posiciones. 
Para leer o actualizar una posición deberemos 
dar tantos pulsos como correspondan a la di- 
rección deseada, después de haber realizado 
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un borrado previo. También podría obtenerse 
la dirección mediante un registro que se di- 
recciona con otra dirección de puerto y se 
carga, asimismo, con la dirección de la posi- 
ción a leer. 

La alimentación del circuito se hace a 
través de un regulador, que en condiciones 
normales de alimentación se conecta directa- 
mente a Vcc. Al desaparecer la alimentación 
general, el diodo empezará a conducir y, por 
tanto, a alimentar al circuito. Es necesaria la 
circuitería indicada para garantizar que en el 


e 


O +5V 


Fig. 10. Circuito de reloj de tiempo real. 


arranque no se borra el contenido de los re- 
gistros internos. 


Programación y lectura del reloj 
de tiempo real 


El programa de ejemplo sirve para ini: 
cializar el circuito a la fecha y hora deseada y 
extraerla posteriormente. Para una aplicación 
real deberán tomarse las partes del programa 
que se deseen. 


10 REM PROGRAMA DE UTILIZACION DEL RELOJ DE TIEMPO REAL 


20 REM SE DIRECCIONA MEDIANTE PUERTOS 


ZO REN 

40 OETION RHASE 0 
SO DEFINT Arz 

560 DIM TUES$ CL) 


DEJEXS 


70 DATA "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNTO" 
80 DATA "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", 


"DICIEMBRE" 
20 FOR 1=1 TO Luz 


READ TMESECI): 


NEXT 1] 
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100 REM DESCRIPCION DE LAS DIRECCIONES DE PUERTO 
110 DIRBASESRH2003 REM DEFINIR LA APROFIADA A CADA MAQUINA 
120 CS 

130 PRINTO" FROGRAMA DE RELOJ DE TIEMFO REAL" 
140 PRIMT , 

131 FPRINTO” SELECCIONE OPCION: ” 

160 PRINT 

170 PRINT O” 1. -FONER FECHA Y HORA” 

190 PRINT , 
200 PRINT O 2. LEER FECHA Y HORA”. 

210 PRIMT 

220 PRINT O" 3. TERMINAR" 

260 PRINT 

270 INPUT "OFCION="3O0FCION 

290 1F OPCION1 OR OPCIONS3 THEM BEEP=" GOTO 120 
27% UN OPCION GOSUE 1000, 2000, 2000 

293 1 OPCION=3 THEN END 

200 GOTO! 120 > 

1000 KEM FONMER FECHA Y HORA 

1010 PRINTO “INDICAR FECHA, NUMERICAMENTE ” 

1030 IMPUT "MES="3mMES 

1040 INPUT "DIA="3D1A 

1050 FRINT 

1090 INPUT "HORAS" HORA 

1070 INPUT "MINUTO": MIMUTO 

1030 PRINTO "LOS VALORES A GRABAR SON: " 

1090 PRINT TMESS1MES)3" "DIA" "¿HORA " "MINUTO 
1100 REM ACTUALIZA El RELOJ EXTERNO 

11410 QUT DIRRBASE+7, MES 

1120 QUT DIRBASE+6,DIAa 

11:30 QUÍ DIRBASE+4, HORA 

1140 CUT DIRBASE+3S, MINUTO 

11390 QUT DIRBASE+Z, O 

11060 QUT DIRBASE+1,0 

1170 QUT DIRBASE, O 

1180 OUT DIRBRASE+21,02: REM COMANDO GO 

1200 RETURN 

2000 REM LEE LA FECHA Y HORA 

2110 "MES=INP(DIRBASE+7) 

2120 DIA=INF(DIRBASE+6) 

130 HORA=INFIDIRBASE+4) 

2140 MINUTO=INPIDIREASE+2) 

2130 SEGUNDO=INP(DIREASE+2) 

2160 PRINT O "FECHA="3D1683" DE "¡TMES$(MES) 

2170 PRINTO"HORO="+ HORA; "3 "5 MINUTO; 2" SEGUNDO 
2200 RETURN 

2000 PRINTO "EIN DEL PROGRAMA" 

2010 RETUEN 


Si se configura el circuito como memo-  PEEK y las OUT por POKE, para realizar la mis- 
ria, deberán sustituirse las sentencias INP por ma función. 
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2 Conclusión 


Se han presentado varios circuitos que 
permiten mantener la hora en tiempo real, 
para utilizarla según convenga en el ordena- 
dor. Existen otros muchos circuitos que pue- 
den emplearse para mantener la fecha y la 
hora en el tiempo real y de fácil conexión nal Or- 
denador como son: 


— MM58274, de National Semiconduc- 
tors, versión avanzada del MMS88174 descrito 
al principio. 


— MC146818, de Motorola, que A 
además de la circuitería de reloj 64 octetos de 
RAM CMOS, que sirven para guardar, y 
ejemplo, datos de configuración de la máqu A A 
na. Es el actualmente empleado en el IBM-. EN! j 

— ICM7170, de Intersil, que tiene : 30 
so calendario con corrección para años bisies- me 
tos y puede emplearse con cuatro diferentes. Ae 
cristales de cuarzo. . 


La adaptación al ordenador de cual . e 
quiera de ellos se hace sin dificultad, depen- . 
diendo principalmente de su coste el Dti 
uno u otro. 


APRENDER CON EL ORDENADOR" "o 


NATURALEZA 
Y TECNOLOGIA QUIMICA 


2 Configuración electrónica 


ABEMOS que la materia es 

divisible y que ya los grie- 

gos utilizaron la palabra áto- 

mo como límite de divisibi- 

lidad. Es cierto que luego 

han surgido nuevos investi- 

gadores que nos han dicho 

que también la fuerza o un 

tipo de energía forma parte de la materia. 

Pero de lo que a continuación vamos a tratar 

va a ser de los elementos químicos, que si bien 

no son el origen de toda la materia, sí son 

aquella clase de materia que no puede des- 

componerse en otra más sencilla, mediante 

unos procesos físicos y químicos sencillos (por 

ejemplo, quedan excluidos los procesos nu- 
cleares). 

En la actualidad se conocen más de un 


40 REM deter dE AI Il 
ZO REM 4* ESTRUCTURA ELECTRONICA DE LOS ATOMOS. +* 


30 REM e SE SUPONE REGULARIDAD 


AO REM e de HA EI RE AR AIES  I AAA 


50 REM 


60 REM A 
70 REM +* VALIDO PARA AMSTRAD, LEM,141S5X, SPECTRUPL se 
B0 REM Sete AIR A RE II A A A 


90 REM 

100 DIM H$(19):D1M Et 19) 

110 FOR N=1 TO 19 

120 READ H$CUNINEXT ON 

130 FOR N=1 TO 193READ E(N)3NEXT ON 
140 CLS 


centenar de elementos, aproximadamente 
105. 


Sabemos que todos los elementos quí- Ñ 
“micos no son iguales, sino que son diferentes á 
entre sí; entre estas diferencias podemos se- y. 
ñalar el número atómico, simbolizado por Z, h 
que es una característica de los átomos de un 
mismo elemento químico y que representa el 
número de protones que hay en el núcleo y el 
número de electrones que hay en la envoltura - 


cuando el átomo está en estado neutro. 

La CONFIGURACION ELECTRONICA 
es una característica más explícita de los áto- 
mos de un mismo elemento químico, pues no 
se limita al recuento de sus electrones, sino 
que, además, indica otras propiedades, como, 
por ejemplo, la distribución y la energía de los 
electrones en la envoltura atómica; los electro- 
nes se mueven preferentemente en las regio- 
nes del espacio más próximas al núcleo. 


Ca 


150 PRINT SeenanconnecanceeasE S TRUCTURA ELECTRON] 


Se 
160 PRINT “PRINT ¿PRINT =PRINT 
170 IMPUT "NUMERO ATOMICOS "A 


480 PRINT ¿PRINT 3PRÍNT " LA ESTRUCTURA ELECTRONICA DEL EL 


MICO ES "383" ES+":PRINF:PRINT 


190 1F A<1 OR A2118 OR AXSINTCA) Tri GOTO 140 


200 LET X=0 

210 FOR N=1 TO 19 

220 PRINT HB(N); 

230 FOR M=1 TO ECN) . 

240 LET X=X+121F X=A THEN GOTO 281) 
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O 

2od PRINT EN 0 

270 MEXTON 

280 PRINT Ms 

290 PRINT 3PRINT ¿PRINT <PRINI 

300 PRINT "PARA SALIR PULSE S" 

310 LET Z$=INKEYS:31IF Z$=""THEN GOTO 310 
320 LF Z%$="S" OR 26="s'!' THEN END 

330 GOTO 140 


340 DATA 15,25,2p,35,3p,45+3d,4p,55,4d,5p,65,4f,5d,6p,75,5f,6,7p 
350 NATA 2,2,6,2,6,2,10,6,2,10,6,2,14,10,6,2,14,10,6 


Modificaciones para otros equipos 


El programa es válido para el IBM- 
PC, AMSTRAD y MSX. 
COMMODORE 
50 PRINT CHR$(147) 


SPECTRUM 


10 DIM H$ (19,2): DIM E (19) 
210 IF Z$="S" OR Z$="s" THEN GO TO 9999 


MATEMATICAS 
= Progresiones 


Es famosa la anécdota que se cuenta en 
todos los libros del inventor del ajedrez, y que 
dice: 

Era Scheran un príncipe indio que co- 
nocía todos los juegos de su país y pasaba las 
tardes aburrido en palacio. Ofreció un premio 
a aquel que le trajera un juego nuevo que fue- 
ra de su agrado. Y fue Sessa, el inventor del 


. 


ajedrez, el que le presentó su juego al prínci- 


pe, y como fue de su agrado ganó el premio 
ofrecido. 

El príncipe Scheran le ofreció en re- 
compensa lo que quisiera, cualquier cosa que 
pidiera le sería concedida. Y Sessa, que era 
pobre, no pidió ni tierras ni tesoros, sino que 
se conformó diciéndole que quería trigo; y la 
cantidad fue lo que más extrañó al príncipe, 
ya que pidió: un grano de trigo por el primer 
cuadrado del tablero de ajedrez, dos granos 
de trigo por el segundo, cuatro por el tercero, 
y así sucesivamente hasta llegar a la potencia 
de 64. 

Y se cuenta que el príncipe Scheran no 
encontró trigo suficiente para recompensar a 
Sessa en todo su reino. 

Si nos fijamos bien, vemos que se trata 
simplemente de una suma de los 64 primeros 
términos de una progresión geométrica de ra- 
zón 2 y cuyo primer término es 1. 

Pues bien, con el programa que a con- 
tinuación presentamos podrás calcular casos 
similares a éste y muchas operaciones más, 
relacionadas con las progresiones aritméticas 
y geométricas y que pueden ser muy útiles en 
algunos casos. 


10 REM 3er ARRE P ROGRES LONE S 424525 e A 


30 PRINT "ARA RAR RARA RARA A RARA MENU AREA AAA RR AI AAA 


20 CLS 

RRHH RARA 

40 PRINT :PRINT :PRINT :PRINT 

50 PRINT " 1 PROGRESIONES ARITMETICAS" 
60 PRINT :PRINT 

70 PRINT " 2 PROGRESIONES GEOMETRICAS” 
80 PRINT PRINT 

90 PRINT " 3 FIN DEL PROGRAMA" 


100 PRINT:PRINT:INPUT "OPCIÓN ELEGIDA:"5A 


110 1 A=1 THEN GOTO 150 
120 1F A=2 THEN GOTO 600 
130 1F A=3 THEN END 

140 GOTO 20 


150 REM a PROGRESIONES ARLTTMET ICAA AAA RA RAR 


160 CLS 


170 PRINT “ARA HARRARRAARARRRR PROGRESIONES ARITOMETICA SS 


HAIR 
1840 PRINT PRINT 
190 INPUT "PRIMER TERMANO:"5P 


FOO INPUT “DIFERENCIA ENTRE TERMINOS:"5D 
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210 
220 
230 
240 
250 
26D 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


630 
640 
630 
660 
670 
680 
690 
700 
710 
720 
730 
740 
730 
760 
770 
7/80 
790 
£00 
810 
820 
830 
840 
850 
860 
470 
3830 
890 
895 
$00 
910 
920 
930 
940 
930 


960 PRINT "PRODUCTO DESDE El. TERMINO "sX ;'" HASTA EL TERMINO “5Y7U="3 (kJ) C(Y=X 
+1)/2) 

970 PRINT PRINTIPRINT "OTRO PRODUCTO?" 

980 LET A$=INKEY$: IF as="" THEN GOTO 980 > 

990 IF A="S" OR Ag="s'" THEN GOTO 900 

995 GOTO 660 


GOSUB 500 

PRINT " 1 SUMA DEN TERMINOS” 
PRINT PRINT 

PRINT " 2 CALCULO DEL TERMIMO N" 
PRINT :¿PRINT 


PRINT “"PULSA OPCION (5 PARA SALIR)" 

LET AS=INKEYS:iF Aé$="" THEN GOTO 270 

1F A$=""1" THEN GOTO 310 

IF A$="2" THEN GOTO 420 

1F. As$="S" OR Aé$="s" THEN GOTO 20 

GOSUB 500 

INPUT "SUMA DESDE El: TERMINO NUMERO" Xx 

IF X2=0 THEN GOTO 320 

INPUT "HASTA EL TERMINO NUMERO"; Y 

IF X>Y THEN GOTO 340 

LET J=P+D*(X-1J:LET K=P+Dx*(Y-1) 

PRINT- "SUMA DESDE EL TERMINO "5X 5% HASTA El TERMINO "5Y7U=03 (Jak)r(Y-X+1)/2 
PRINT ¿PRINTIPRINT “OTRA SUMA?" y 


390 LET AS=INKEYS$:1iF As$="" THEN GOTO 390 

400 IF As$="5" OR A$="s" THEN GOTO 310 $ 
410 GOTO 210 

420 GOSUB 500 ; 

430 INPUT "NUMERO DEL TERMINO A CALCULAR";B 

440 1F B<=0 THEN GOTO :430 

450 PRINT ¿PRINTIPRINT" a";B5"="3P+D*(B-1) 

460 PRINT :PRINT:PRINT “OTRO TERMINO?" 

470 LET AS=INKEYS$:1F A$="" THEN GOTO 470 

480 IF A$="S" OR A$="s" THEN GOTO 420 

490 GOTO 2:10 

500 CLS 

510 PRINT " + PROGRESION ARITMETICA e" 
515 PRINT:PRINT:PRINT:PRINT 

520 PRINT " at=";P 

530 PRINT " D=";D 

540 PRINT ¿PRINT 

550 RETURN l 

600 REM AR RRAARARPROGRES IONES GEOMETRICAS 3 A RI A 

610 CLS 

620 PRINT "sr RARA PP ROGRESIONES GEOMETRICA S4* 
HÁRRAAARRARAR 


PRINT :PRINT 
INPUT "PRIMER TERMINO: "“;P 


INPUT "RAZON DE LA PROGRESION:"5R 

GOSUB 2000 

PRINT " 1 SUMA DE N TERMINOS” 
PRINT :PRINT 

PRINT " g£ PRODUCTO DE N TERMINOS" 
PRINT :PRINT 

PRINT " 3 CALCULO DEL TERMINO N" 
PRINT ¿PRINT 


PRINT "PULSA OPCIÓN (S PARA SALIR)" 

LET A$=INKEYS$: IF A$="" THEN GOTO 7/40 

IF A$="1" THEN GOTO 800 

IF As="2" THEN GOTO 901) 

1F A$s="3" THEN GOTO 1000 

IF A$="S" OR A$="s" THEN GOTO ZO 

GOTO 460 

GOSUB 2000 

INPUT “SUMA DESDE EL TERMINO NUMERO"; X 

IF X<¿=0 THEN GOTO 810 

INPUT "HASTA EL TERMINO NUMERO"; Y 

IF X>Y THEN GCTO 830 

LET J=P%(R*(X-14)):LET K=PX(R*(Y--1)) 

PRINT "SUMA :DESDE EL TERMINO "5X_ 7" HASTA EL TERMIMO “3Y5"="5 (K4R=J)/(R=17 
PRINT 3PRINT:PRINT "OTRA SUMA?" 

LET A$=INKEYS$:31F As="" THEN GOTO 880 
IF A$="S" OR A$="s'" THEN GOTO 800. 
GOTO 660 

GOSUb 20600 

INPUT "PRODUCTO DESDE El IERMINO NUMERO"; 
IF Xx%=0 THEN GOTO 910 

INPUT "HASTA El TERMINO NUMERO"; Y 

IF X2Y THEN GOO 930 

LET J=P*(ROCOX- 1) 3LET K=PR(k"(Y-1)) 
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CON EL ORDENADOR ' APA AA, 


* 1 UOBUb 2000 
010 INPUT "NUMERO DEL TERMINO A CALCULAR "sb 


U 1F 120 THEN GOTO 430 

1130 PRINT OSPRINIS5PRINT" a sBs"="5PxR(RO(B-4)) 
1040 PRINT ¿PRINT:PRINT “OTRO TERMINO?" 

1W50 LEI A%<INKEYS$: IFE As="" THEN GOTO 1050 
1060 1F A$="S5" OR as="s" THEN GOTO 1000 


1070 GOTO 660 
2000 CLS 

2010 PRINT " 
PORO PRINT<PRINT:PRINT:PRINT 
POSO PRINT " 

2040 PRINT “ 

2050 PRINT :PRINT 

2060 RETURN 


Modificaciones para otros equipos 


El programa es válido para el IBM- 
PC, AMSTRAD y MSX. 


COMMODORE 
Cambiar los CLS por PRINT CHR$(147) 


SPECTRUM 
130 IF A=3 THEN GO TO 9999 


SOCIEDAD 


- Horarios en el mundo 


Todos sabemos que la Tierra, en su mo- 
vimiento de traslación alrededor del Sol, pasa 
por distintas posiciones con relación a éste; 
pero esas posiciones ocurren en grandes pe- 
ríodos de tiempo y quizá no lo vemos clara- 
mente. De lo que sí nos damos cuenta perfec- 
tamente es de cuándo amanece y de cuándo 
se, pone el Sol. 

Pues bien, es lógico que esto, que es tan 
claro a simple vista, tenga cierta complicación 
en un planeta como el nuestro; en efecto, lo 
que ocurre es que no en todos los países ama- 


32 PROGRESION 


GEOMETRICA +4..4" 


al=";P 
R="5R 


nece y anochece al mismo tiempo, sino que 
cada país, dependiendo de su situación geo- 
gráfica, recibe los rayos del Sol en distintos 
momentos que los demás países. 

Esto crea unas diferencias horarias tan 
grandes en algunos casos, que cuando en un 
país está saliendo el Sol es tiempo del ocaso 
en otro. 


Figúrate que tuvieras que hacer un via- 
je o que simplemente por curiosidad te inte- 
resara conocer la hora de otro país. ¿Cómo po- 
drías saberlo? En este programa que a conti- 
nuación te presentamos te ofrecemos la mane- 
ra, si no más rápida, sí más sencilla de cono- 
cer el horario de otros países que pueden es- 
tar muy lejos del nuestro. 


Para la construcción de este programa 
se han empleado tres matrices: la primera 
para almacenar los nombres de los países de 
los que el ordenador conoce la hora. En la se- 
gunda y tercera las horas y minutos, respec- 
tivamente, de la diferencia horaria con res- 
pecto a la Península. 


Si el ordenador no conoce la hora del lu- 
gar solicitado, pregunta, hasta en cinco oca- 
siones, un país próximo al introducido, para 
calcular una aproximación horaria. Si todos es- 
tos países también le fueran desconocidos, el 
programa responde ignorando el horario de 
ese lugar. 


10 REM see A A IR II A RIA RE ji A II E 


ZO REN 40 


HORARIOS EN EL MUNDO 


EHH 


30 REM AAA A A II RA A A 


40 DIM P$(65):D1M A(65):DIM R(45) 
50 FOR I=1 TO 65 

60 READ P$(L) 

70 NEXT 1 

80 FOR I=1 10 65 

20 READ GUI) 

100 NEXT L 

110 FOR 1=1 10 65 

120 READ RCL) 

130 MEXT 1 


140 CL5 y O ON 

1590 PRINT "Sia JONS TRY € CLONES rre B aL 

HAIR AA e fo A A 

160 PRINT:PRINT y 7 5511 mia ó 

170 PRINT " EN PRIMER LUGAR DEBERAS INTRODUCIR" ¿Vd AE TR LN > 

180 PRINT " LA HORA Y DESPUES LOS MINUTOS" : A Ts a) ws 

190 PRINT “ EN LA PENINSULA" Ls ra EAS 

200 PRINT Aa A A MDI 

g10 PRINT" £ CONTINUACION TENDRAS GUE DECIRLE" i Ds Y: e 

220 PRINT" ¿A YU ORDENADOR EL PAIS DEL QUE" $ y ¿ANO y » 

230 PRINT " QUIERES CONOCER LA HORA" ' y EN ¡5 ¡4 

240 PRINT ¿PRINT : 1 , qe e TE 2) ER . 

256 PRINT " EJEMPLO: " A 

260 PRINT " HN A HORA: 17" a Vi > 

E70 PRINT " ] MINUTOS: 30" 1 ¿AED ¿ 

280 PRINT / A Ñ 

296 PrRINI " PALS MARRUECOS" LA A */ a 

300 PRINT Ad y 

310 PRINT LAS 17:50 EN LA PENINSULA SERAN LAS 16:30 EN MARRUECOS" EN 1H ] ' 

320 PRINT ; y LR) CE MM 

330 PRIM " , *FPULSA UNA TECLA PARA COMENZAR" 1 Ar t 
-340 LET Ab=INKEYS:1F A="" (Hen GOTO 340 : 

3506 CLSiLE+ A=0 Ed 

36 PRINT "sxsrsnarcrr HORARIOS EN EL MUNDO rr AE E ] 

Ian ed - ne m5 pr sae 

370 PRINT+PRINT y ! ' ENT A 

380 PRINT " HORA EN LA PENINSULA" as 

39D PRINT X tE 

400 INPUT" » HORAS "5H 237 Y 

410 1 H<0 OR Ho=24 THEN GOTO 400 z , 

420 INPUT" . MINUTOS: "mM ] 

430 LF MD OR M>=60 THEN GOTO 420 

2440 PRINT . — 

450 1INPUJ** PAIS: "303 A 

460 REM sumarle BUSQUEDA DEL PALS iii ia + 


470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


570. 


580 
590 
600 
610 
620 
630 
640 
NES 
650 
660 
670 
680 
670 
700 
7140 
720 
730 
740 
730 
766 
770 
780 


790 
3800 
810 
820 
330 
840 
450 


860 | 


870 
-880 


7 BAHRAIN, BELGICA, BERMUDAS 


PRINT:PRINT O 0 PÚLSA UNA TECLA PARA CONTIMUAR (S PAR 


Y EAN BLA! 


LET C=O3LET Hi=H:LET M1i=M 
FOR l=1 TO 65 


IF PECID=NS THEN GOTO 570 ¿ 
NEXT 1 151/88 ya 
LET C=C+1:1F (=5 THEN GOTO 540 J5NE 
PRINT " DAME UN PAIS CERCANO A "yNgs et 

INPUT" PAIS: "$N$:GOTO 480 

PRINT " LO SIENTO. NO CONOZCO EL HORARIO DE ESA ZONA" 

PRINT:PRINT PULSA UNA TECLA PARA CONTINUAR (S PARA SALIR)" 

GOTO 730 


LET M=M+R (1) ze 
1F M>=60 THEN M=M-6D:LET H=H+1:GOTO 600 , j 

IF Mí=0 THEN M=60+M:LET H=H-1 

LET H=H+G (1) 

IF H>=24 THEN H=H-24:LET A=1:GOTO 630 
IF H30 THEN H=24+H:LET A=-1 


PRINT , 

PRINT “ LAS "pHts "md; EN LA PENINSULA SERAN LAS "5H 
IF A=1 THEN PRINT " DEL DIA SIGUIENTE" “$ 
1F A=-1 THEN PREINT " DEL DIA ANTERLOR" 3 
1F 1I=1% THEN GOSUB 7601 , 


IF 1=15 THEN GOSUB 780 ! 
1F 1=24 THEN GOSUB 800 , pe 
IF 1=40 THEN GOSUB 820 : Pucon 
IF I=6%2 THEN GOSUB 840 


LET Zé=INKEY$:1F Z$="" THEN GOTO 730 
1F Zó="S" OR Z9="s" THEN END 

GOTO 350 , pe 
PRINT "HORA DEL ESTE. EN BRASIL.(OESTE) SERA UNA HORA menos 
RETURN AE 


PRINT ' HORA DE LA ZONA ATLANTICA. EN LA COSTA DEL PAC 
CUATRO HORAS MENOS" 


RETURN y d 
PRÍINT " EN CAMARIAS SERA UNA HORA MEN 
RETURN ; 
PRINT " HORA DE LA CAPITAL.EN LA ZONA DE YADINÓsTO 
RETURN 

PRINT " HORA DE LA CAPITAL. EN LA ZONA CENTRO 


PRINT " EN LA COSTA DEL PACÍFICO SER 
PRINT " EN LA ZONA De HAWAI SERAN CI 
RETURN MARES 
DATA AFGANISTAN, ALEMANIA, ARABIA SAUDITA, 


)ER CON EL ORDENADOR “ 


.f 90 DATA BOLIVIA, BRASIL, BULGARIA, CAMERUN, GANADA, COLOMBIA, CONGO, CUBA 
y 2900 DATA CHECOSLOVAQUIA, CHILE, CHINA, DINAMARCA, EGIPTO, ESPAÑA, FILIPINAS, FINLANDIA, 
rr FRANCIA, GRAN BRETAÑA, GRECIA 
S 05 DATA GUATEMALA, HOLANDA, HONDURAS, HUNGRIA, INDIA, IRAK, IRAN, IRLANDA, ISRAEL, ITALI 
020 DATA JAPON, MEXICO, MOZAMBIQUE , NICARAGUA, NORUEGA, NUEVA ZELANDA,PAKISTAN, PANAMA 
¡PARAGUAY , PERU 
930 DATA POLONIA, PORTUGAL , RUMANIA, SIRIA, SUDAFRICA, SUECIA, SUIZA, TAILANDIA, TURQUIA 
, UGANDA - 
940 DATA U.R.S.S. URUGUAY,U.S.A. , VENEZUELA, YUGOSLAVIA, ZIMBABWE 
980'DATA 2,0,2,-1,-4,9,0,2,0,=5,-5,-4,1,0,-5,-6,0,-6,0,-5,7,0,1,0,7,1 
960 DATA 0,-1,1,-7,0,-7,0,4,2,2,-1,1,0,+8,-7,1,-7,0,11,4,-6,-5,-6,0,-1,1,1,1,0,0 
1671,2,2,-4.-6,-=5,0,1 
970. DATA 30,0,0,0,0,0, 
0 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,30,0 
,30,0,0,0,0,0,0,0,0, 


0,D, 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


aplicación práctica que pueden tener otras, 


Modificaciones para otros equipos pero no por ello van a ser menos importantes 
que las demás. Su uso, aunque indirectamen- 
El programa es válido para el IBM- te, puede ser tan necesario como el de cual- 

PC, AMSTRAD y MSX. quier otro dominio de la Matemática. 
Hay muchos casos en los que un proble- 
COMMODORE : ma o un ejercicio se simplifica notablemente 


si conocemos las propiedades que en ese caso 


Cambiar todos los CLS por PRINT CHR$(147) | — actúan; de ese modo podemos evitar, a veces, 
gran cantidad de cálculos, que hubieran sido 


SPECTRUM innecesarios. 


40 DIM P$(65,20):DIM Q(65):DIM R(65) También el conocimiento de las propie- 
740 IF Z$="S" OR Z$="s" THEN GO TO 9999 dades que cumplen algunos conjuntos con sus 
Todos los DATA alfanuméricos deberán ser:| leyes operativas permite comparar unos con 
introducidos entre comillas. otros y elaborar teorías discriminatorias, así 
como prever el comportamiento de dichos 
conjuntos en situaciones concretas. 

: En el programa que a continuación pre- 
PARA LOS MAS JOVENES sentamos E baáios en una gran base de 
datos, de la que vamos a hacer uso, según ne- 
7 Estructuras matemáticas cesitemos, a través de diversos menús, que 
irán mostrando en la pantalla la estructura de 
Existen partes de la Matemática cuyo los distintos conjuntos de números con las le- 

uso no es muy corriente, y que no tienen la yes operativas que nosotros solicitemos. 


* 


ES 40 REM RRA A A A 
20 REM +* TEORIA DE GRUPOS +% 
30. REM e A 
40 REM 
SO REM 444 A RE RA O AEREA OI A A 
60 REM % VALIDO PARA 1BM,MSX, SPECTRUM, AMSTRAD + 
FO REM eee 2e e HIERE TE ER RIO IA AIRE A IR AA 
80 REM 
90 REM 
100 CLSI3PRINT: Miele set E AR AA RRA RR MOE NU ARAARAA R 
HAMACHI 
110 PRINTiPRINT ¿PRINT 

) 120 PRINT TAB(25)5"1 ESTRUCTURA DE GRUPO"“PRINT:PRINI 

1430. PRINT TAB(25);"2 ESTRUCTURA DE SEMIGRUPO":PRINFS+SPRINT 
140 PRINT TAB(25)3"3 ESTRUCTURA DE ANILLO":PRINT3PRJNT 
150 PRINT TAB(25);"4 ESTRUCTURA DE CUERPO" 3PRINT+PRENT 
166 PRINP+INPU1 “OPCLON ELEGIDA (U PARÁ SALIR>):"5A 
165 IF A30 THEN END 
170 14 A>4 OR A: 1 THEN GOTO 1060 
190 ON A GOTO 200,500, 7/00, 900 
POD CLSIPRINT rra ES TRUCTURA DE GRUPO rmac 
MA ld A A a 
PAD PRINTIPRINT 
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A A A A O 


220 PRINT "LOS CONJUNTOS QUE PRESENTAN ESTRUCTURA DE GRUPO SON:" a 
230 PRINT:+PRINT 

240 PRINT TAB(15);"A) NUMEROS ENTEROS RESPECTO A LA SUMA" É 

250 PRINT:PRINT + 
260 PRINT TAB(15)5'"B) NUMEROS RACIONALES RESPECTO A LA SUMA" 

270 PRINT:PRINT ] j 

280 PRINT TABC15)35"C) NUMEROS RACIONALES RESPECTO AL PRODUCTO" , a 
290 PRINT:PRINT y 
300 PRINT TAB(15)5"D) NUMEROS REALES RESPECIO A LA SUMA" 

310 PRINT+PRINT é 

320 PRINT TABC15)3"E) NUMEROS REALES RESPECTO AL PRODUCTO" 

323 PRINT:PRINT : 

330 PRINT "PULSA LA LETRA DEL CONJUNTO QUE GUÍIERAS VER (M PARA VOLVER AL MENU PR 

INCIPAL)" 

340 LET AS=INKEYS:1F A$="" THEN GOTO 340 

343 1F A$="M" OR A$="m" THEN GOTO 100 

345 IF AS<>"A" AND AS<>"BE" AND ASZÍ>"C" AND A$<>"L" AND AR<>"E" THEN GOTO 200 p 
350 LE ASS"A" THEN Hé="ENTEROS":LET K$="ENTERO" 

360 1F A+="B" OR A$=""C" THEN H$="RACIONALES"GLET K$="RACÍONAL" 

370 1E A%="D" OR A$="E" (HEN H$="REALES"SLET K$:="REAL" 

380 1F A$="A" OR A$="B" OR A$="D" THEN J$=" LA SUMA" GLET 0$="+":G0TO 400 ¿ 
390 LET J$="L PRODUCTO":LET 0$="x" 

400 GOTO 1000 

500 CLS1PRINTMenaananantntatas ESTRUCTURA DE SEMIGRUPO 
FAA . 1] 
510 PRINT:PRINT y 
520 PRINT "LOS CONJUNTOS QUE PRESENTAN ESTRUCTURA DE SEMIGRUPO SON:" y 
530 PRINT:+PRINT:PRINT:3PRINT y a 
540 PRINT TAB(15);"A) NUMEROS NATURALES RESPECTO A LA SUMA" 

550 PRINT:PRINT 

560 PRINT TAB(15);"B) NUMEROS NATURALES RESPECTO AL PRODUCTO” 

570 PRINT:PRINT 

580 PRINT TAB(15);'"C) NUMEROS ENTEROS RESPECTO AL PRODUCTO" - JE 
590 PRINT:PRINT ¿PRINT :PRINT 

600 PRINT "PULSA LA LETRA DEL COMJUNTO QUE QUIERAS VER (M PARA VOLVER AL MENU PR » 
INCIPAL)" « 
610 LET A$=INKEYS:IF A$="" THEN GOTO 610 e y 


e 


620 IF A$="M" OR A$="m'" THEN GOTO 100 

625 1F A$<>"A" AND A$<>"B" AND A$<>"C" THEN GOTO 500 

630 IF A$="A" OR A$="B" THEN H$="NATURALES"“LET-K$="NATURAL":GOTO 650 

640 LET H$="ENTEROS"“:LET K$="ENTERO" . 

650 IF A$="A" THEN J$=" LA SUMA": CER 0$="+'":GOTO 670 4 

660 LET J$="L PRODUCTO" ¿LET 0$="x 

670 GOTo 2000 

700 CLS:3PRINT “ete ES TRUC ' URA DE ANILLO mee: 

FA 

710 PRINT:PRINT 

720 PRINT "EL CONJUNTO QUE PRESENTA ESTRUCTURA DE ANILLO ES:" N ye 

730 PRINT:PRINT:PRINT:PRINT y ) , 

740 PRINT TAB(15)5'"A) NUMEROS ENTEROS RESPECTO A LA SUMA Y AL PRODUCTO" - T: 6% 

745 PRINT:PRINT:PRINT:+PRINT:PRINT EA 

US "PULSA LA LETRA A PARA VER ESTE CONJUNTO (M PARA VOLVER AL MENU PRINCI 
t 

760 LET A$=INKEYS$:1F As$="" THEN GOTO 760 

770 1F SS OR A$="m'" THEN GOTO 100 

780 1F A4$%>"A" THEN GOTO 700 


79D CLS: PRINT p *ESTRUCTURA DE ANILLO DEL CONJUNTO DE LOS NUMEROS ENTER . de 
OS "GPRINT" me *RESPECTO A LA SUMA Y AL PRODUCTO*" ; 1 "5 1 
800 PRINT:PRINT e 
3810 PRINT * - LA SUMA DE LOS NUMEROS ENTEROS TIENE ESTRUCTURA DE GRUPO CON RES 

PECTO A LA SUMA" , 4 

3820 PRINT:PRINT 

aso PRINT " - El PRODUCTO DE LOS MUMEROS ENTEROS TLENE ESTRUCIURÁA DE SErGRUrO d 


840 PRINT:PRINY 


850 PRINT " - EL ELEMENTO NEUTRO DEL PRODUCTO ES EL 40 
860 PRINT:PRINT 4 
870 PRINT "  — LA SUMA Y EL PRODUCTO TIENEN LA PROP LEDAD CONMUIATIVA»' Í 
880 PRINT " arb=b+a //  axb=bxa" - 
885 PRINT:PRINT:PRINI 

E e PRINT " leLOS NUMEROS ENTEROS FORMAN UN ANILLO UNITARIO Y con 
895 PRINT+PRINTIPRINT" PULSA UNA TECLA PARA VOLVER AL ME 
PAL" J 7 pe el 
897 LET Zó=INKEY$31F Z$="" “HEN GOTO 897 1 


899 GOro 100 : 

900 CLSiPRINT Menear ESTRUCTURA DE CUE 
Y 
910 PRINT:PRINT 


43 


APRENDER CON EL ORDENADOR 


930 PRINT:PRINT:PREMT:PRINMT 

940 PRINT TAB(15)5"A) NUMEROS SAGTONALES RESPECTO A LA SUMA Y AL PRODUCTO" 

930 PRINT:PRINT:PRINT:PRINT 

960 PRINT TAB(45)5"R) NUMEROS REALES RESPECTO A LA SUMA Y AL PRODUCTO" 

970 PRINTSPRINT+PRINT:PRINT:PRINT 

973 PRINT “PULSA LA LETRA DEL. CONJUNTO QUE QUIERAS VEK (M PARA VOLVER AL MENU PR 
INCIPAL)” 

980 LET A$=INKEYS$:1F A$="" THEN GUTO 980 

985 IF A$="M" OR A$="m'" THEN GOTO 100 

987 1F A$<>"A" AND A$<>"B" THEN GOTO 900 

990 IF A$="A" THEN GOTO 2400 

995 1F A$="B" THEN GOTO 2500 

1000 CLSiPRINT "***ESTRUCTURA DE GRUPO DE LOS NUMEROS "¿H$s" RESPECTO. AU3J E; e 
e 


1010 PRINT:PRINT e 

1020 PRINT TAB(25);"1) LEY DE COMPOSICION INTERNA" 

1030 PRINT:PRINT 

1040 PRINT TAB(25);"2) ASOCIATIVA" 

1050 PRINT:PRINT 

1060 PRINT TAB(25);"3) ELEMENTO NEUTRO" 

1070 PRINT:PRINT 

1080 PRINT TAB(25);'"4) ELEMENTO SIMETRICO U OPUESTO" 
1090 PRINT:PRINT 

1100 INPUT "¿QUE PROPIEDAD QUIERES VER?(0 PARA SALIR) ";P 
1110 IF P<O OR P>4 THEN GOTO 1100 

1120 1F P=0 THEN GOTO 200 

1130 ON P :GOSUB 1300,1400, 1500, 1600 

1140 GOTO 1000 

1300 CLSiPRINT "estee Ae RR ARRARLEY DE COMPOSICION INTERNO e eseee te 
FRIA OA 

1310 PRINT:PRINT:PRINT:PRINT 


1320 PRINT " SI a Y b SON DOS NUMEROS ";H$ 
1330 PRINT:+PRINT 
1340 PRINT " ENTONCES a'";0%5"b ES OTRO NUMERO ";Ks$ 


1350 GOTO 3000 

1400 CLSiIPRINTO Use e ERARPROPIEDAD ASOCIATIVAr ener es ret 
de 

1410 PRINT+PRINT+PRINT:PRINT 


1420 PRINT " a,b, SÓN (RES NUMEROS “"3H$ 
1430 PRINT:PRINT 
4440 PRINT " (arjOs; "LI "jOb; "osa sO0s; "(bUsOB 50)" 


1450 GOTO 3000 4 

1500 CLSI3PRINT O eee ee AA AA RAE LEMENTO NEUTRO ee ER 
AAA 

1510 PRINT:PRINT+PRINT:PRINT 

1520 IF A$="C" OR A$="E" THEN Y =1:GOTO 1540 

153D LET Y=0 


1540 PRINT “ El ELEMENTO NEUTRO DE LOS NUMEROS "3-45" ES EL "¿Y 
1550 PRINT:PRINT 

1560 PRINT " SIENDO a UN NUMERO "5Ks 

1570 PRINT " SE VERIFICA QUE" 

1580 PRINT " a jOb;3 Y; "=a" 


15790 GOTO 3000 

160D CLSPRINT "Ae IR AARELEMENTO SIMETRICO RARA ei 
AR 

1610 PRINT:PRINT:PRINT:PRINT 

1620 1F A$="A" OR A$="E" OR A$="D" THEN LET X$="-a":¿GOTO 1640 

1630 LET X$="1/a" 


1640 PRINT " SIENDO a UN NUMERO ";ks$ 

1630 PRINT “ EL ELEMENTO SIMETRICO DE a ES "3X3$ 

1660 PRINT:PRINT 

1670 PRINT " YA QUÉ SE VERIFICA: 

1680 PRINT " a "30$3X$;5'"=ELEMENTO NEUTRO" 


1690 GOTO 3000 

2000 CLSi¡PRINT "“*skESTRUCTURA DE SEMIGRUPO DE LOS NUMEROS "5HS;" RESPECTO A"5Jss 
Mar 

2010 PRINT:PRINT 

2020 PRINT TAR(25)51) LEY, DE COMPOSICIÓN INTERNA" 

2030 PRINT:PRINT 

2040 PRINT TAB(25)5'"2) ASOCIATIVA" 

2050 PRINT:PRINT 

2060 INPUT "¿QUE PROPIEDAD QUIERES VER?7(0 PARA SALIR)";P 

2070 IF PX<D OR P>2 THEN GOTO 2060 

2080 :1F P=0 THEN GOTO 500 

2090 ON P GOSUB 2200,2300 

2100 GOTO 2000 , 

2200 CLSIPRINT "eta RAARLEY DE COMPOSICION INTERNA teta 
HARO 

2210 PRINT+PRINTI3PRINT+PRINT 

2220 PRINT " SI a Y b SON DOS NUMEROS "5H$ 
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2230 PRINT:PRINT 

2240 PRINT " ENTONCES a'";0%$5"b ES OTRO NUMERO ";Ks$ 
2251 GOTO 3000 

2300 CLSiPRINT "RARA AR PROPIEDAD ASOC IAT IVAR 


HA 

2310 PRINT:PRINT:PRINT:PRINT 

2320 PRINT " a,b,c SON TRES NUMEROS ";H$ 

2330 PRINT:PRINT 

2340 PRINT " (a"50%65"b)"50%$5“c=a"3O%3"(b"30s3"c)" 

2350 GOTO 3000 

2400 CLS:PRINT " *ESTRUCTURA DE CUERPO DEL CONJUNTO DE LOS NUMEROS RACI 

ONALES*+":PRINT" ' *RESPECTO A LA SUMA Y AL PRODUCTO*" : 
* 2410 PRINT:PRINT 

2420 PRINT > LA SUMA DE LOS NUMEROS RACIONALES TIENE ESTRUCTURA DE GRUPO * 

2430 PRINT:PRINT » 

2440 PRINT " — EL PRODUCTO -DE LOS NUMEROS RACIONALES TIENE ESTRUCTURA DE GRUPO 

2450 PRINF:PRINT , A 

2460 PRINT * = LA SUMA Y EL PRODUCTO TIENEN LA FROPIEDAD CONMUTATIVA:" y 

2470 PRINT " a+b=bra  // axb=bxa" 5 

2480 PRINT:PRINT:PRINT 

2490 PRINT " ReL.OS NUMEROS RACIONALES FOxMAN UN CUERPO ABELLANO O CONMUTA 

TIVOR"" 

2495 PRINT:PRINT:PRINT" PULSA UMA TECLA PARÁ VOLVER AL MENU PRINC 

IPAL" 1 - e 

2497 LET Z$=INKEYS:31F Z7%$="" THEN 6010 897 

2497 GOTO 100 

2500 CLSIPRINT " RESTRUCTURA DE CUERPO DEL CONJUNTO DE LOS NUMEROS REAL 

ES*"GPRINT" *RESPECTO A LA SUMA Y AL PRODUC TO+" 

2510 PRINT:PRINT 

2520 PRINT " " LA SUMA DE LOS NUMEROS REALES TIENE ESTRUCIURA DE GHUPO " 

23930 PREINT:PRINT 

2540 PRINT > El PRODUCTO DE LOS NUMEROS REALES TIENE ESTRUCTURA DE GRUPO " 

25350 PRINT:PRINT 

2560 PRINT ALA SUMA Y EL PRODUGIO TIEMEM LA PROPIEDAD CONMUTATIVA=“ 

25/11 PRINT " arb=b+a  // axb=bxa" 

2580 PRINT+PRINTIPRINT 

2590 PRINIL " RLOS NUMEROS REALES FORMAN UN CUERPO ABELIANO O CONMUTATIVO 

pr 

23995 PRINTIPRINTI3PRINT" PULSA UNA TECLA PARA VOLVER AL MENU PRINC 

PAL" 

2597 LET Zé=1NKBYS:1F Z$="" THEN GOTO 497 


2399 GOTO 100 

3000 PRINT:PRINTI3FRINT 

3010 PRÍNT "OTRA PROPIEDAD?" 

3020 LET Wé=INKEY$21F Wé="" THEN GOTO 3020 
3030 1F W$="S" OR Wé="s" THEN.GOTO 3050 
3040 1F A=1 THEN GOTO 200 


3045 1F A=2 THEN GOTO 50U 
3050 1F A=1 THEN GOTO 1000 
3060 1F A=2 VHEM GO 2000 


Modificaciones para otros equipos SPECTRUM 


Ai 165 IF A=0 THEN GO TO 9999 
El programa es válido para el IBM-PC, 180 IF A=1 THEN GO TO 200 


AMSTRAD y MSX. 


182 IF A=2 THEN GO TO 500 
185 IF A=3 THEN GO TO 700 
188 IF. A=4 THEN GO TO 900 
GOMMODORE 1130 GOTO 1200 +(P=100) 
Cambiar los CLS por PRINT CHR$(147) 2090 GOTO 2100 +(P-100) 
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PEQUEÑA HISTORIA DE LA INFORMATICA? 


Historia de las máquinas 
de calcular del siglo XVI 


N el siglo XVII aparecen los 
primeros intentos de simpli- 
ficar las tareas de calcular 
medianje máquinas mecáni- 
cas. Antes, existían numero- 
sos sistemas la mayoría muy 
ingeniosos para contar, pero 
ninguno era mecánico. To- 
dos eran manuales, utilizando marcas, me- 
diante tablas (logaritmos), reglas de cálculo, 
etcétera. 

Ya en estas fechas aparece por prime- 
ra vez la diferenciación entre los dos sistemas 
de cómputo, el analógico y el digital. Una re- 
gla de cálculo, por ejemplo, representa un sis- 
tema analógico de contar, ya que siempre se 
le pueden añadir más divisiones a la regla, o 
tomar otra más larga, de más precisión, etc., y 
el resultado no es un número concreto. Las má- 
quinas mecánicas, por el contrarió, son máqui- 
nas digitales, que utilizan cantidades exactas, 
concretas, obteniendo resultados también 
exactos. 

Volviendo a las máquinas mecánicas, el 
problema a resolver es, en primer lugar, la 
cuenta de objetos, que no parece tener dema- 
siadas complicaciones, si se van contando, por 
ejemplo, mediante un diente por cada objeto. 
El siguiente problema que aparece es el 
ARRASTRE, de una posición a la siguiente más 
significativa. Naturalmente la máquina debe 
hacer este paso automáticamente, sin que el 
operador se ocupe. 

Para solventar el asunto, se pueden co- 
local, por ejemplo, varias ruedas engranadas 
directamente, pero con una reducción de diez 
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a uno, de forma que por cada diez pasos o 
dientes de la primera rueda se produce un 
giro de un diente de la segunda. Los engrana- 
jes también pueden ser desmontables. 


Fig. 1. Esquema básico de un contador mecánico que utiliza 
ruedas dentadas. 


Pensemos, por ejemplo, en dos ruedas, 
A y B, una de ellas tiene veinte dientes, y la 
otra tiene solamente dos. Además, llevan es- 
critos los dígitos de la forma en que se indica 
en la figura. Por cada vuelta completa de la 
rueda A, la rueda B gira un décimo de vuelta. 
nOs los dígitos se pueden ver a través de la 

entana, podremos leer una cantidad de dos 
dígitos, es decir, de 0 a 99. Si deseamos am- 
pliar el sistema de cuenta, podemos hacerlo, 
engranando más ruedas, que sigan cumplien- 
do la norma anterior, es decir, que giren a gu 
vez un décimo de vuelta por adn vuelta com- 
pleta de la rueda anterior, Así, podemos con- 
tinuar colocando ruedas, hasta donde quera- 
mos (al menos, desde el punto de vita toó- 
TICO). 

Hasta el momento, hemos fabricado una 
registradora, es decir, un aparato para llevar 
la cuenta. Ahora pasemos a sumar. Para ello, 
nuestros antecesores (o mejor, los antecesores 
de los franceses o alemanes) imaginaron dos 
contadores semejantes al que acabamos do 
describir, Al comenzar, lon don contadores es 
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tán a cero, y el primero comienza a contar la 
cantidad. Inmediatamente, los contadores se 
vuelven a ajustar y giran juntos hasta anótar 
el segundo número. En el primer contador, se 
habrá anotado la suma de los dos números. 
Para llegar al resultado de forma práctica, se 
utiliza un trinquete. De este modo, el primer 
contador puede girar libremente, pero el se- 
gundo, en el momento en el que comienza a gi- 
rar, arrastra SIEMPRE al primero. Las restas se 
efectúan girando la segunda rueda en sentido 
contrario, 

Para que las operaciones resulten có- 
modas, es mucho mejor disponer de dos con- 
tadores, uno de ellos será el que registre los 
datos, y el otro anotará los resultados. Las su- 
mas se pueden realizar mediante los engrana- 
jes con trinquete de que hablamos, de forma 
que los dos contadores giren solidarios en un 
determinado sentido, y se desconecten cuan- 
do giran en el sentido contrario, poniéndose a 
cero, 

Resumiendo todo lo anterior, la máqui- 
na típica de Pascal estaba formada por varios 
mecanismos de ruedas, unas para registrar los 
datos, y otras para presentar los resultados. 
Cada rueda de registro de datos está unida a 
una rueda de resultados, y a su vez, lo está a 
las restantes ruedas que componen el meca- 
nismo, siguiendo las normas anteriores sobre 
los arrastres. 

Una vez eshbozado el funcionamiento 
técnico de la máquina, pasemos a hablar de 
su autor. A la edad de diecisiete años, Blaise 
Pascal (1623-1662) concibió su primera máqui- 
na de calcular. Pascal, como todo científico era 
curioso, no aceptaba las cosas sin más, y gus- 
taba de experimentar. Su padre era recauda- 
dor de Hacienda, y tenía que hacer penosísi- 


Las ruedas dentadas tienen diez dientes o uno sólo, porque el sis- 
terna de numeración es decimal. 
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¿Sabía usted que... 


Raimundo Lulio, padre de la Lógica Computa- 
cional Moderna, pensaba que para explorar el cono- 
cimiento, podía partirse de las siguientes considera- 
ciones?: en cada rama del conocimiento existe un 
cierto número (no muy grande) de principios bási- 
cos que deben ser admitidos sin discusión, sin ex- 
plicación de ningún tipo. Para llegar a explorar la 
Rama del Conocimiento seleccionada, un buen sis- 
tema es agotar todas las combinaciones posibles de 
esas categorías, 

Para abordar el problema, Lulio pensó en 
construir tablas con todas las posibles combinacio- 
nes. Lulio ofrecía tres sistemas básicos: uno de ellos 
creando listas de dos conjuntos de categorías, en 
forma de columna, y uniéndolas rectas (tal y como 
mostramos en un dibujo). Otro sistema (que también 
mostramos en un dibujo) consiste en disponer el con- 
junto de categorías en un círculo, y trazar las rectas 
que unen dos categorías. Al hacer girar el círculo, 
se van obteniendo todas las permutaciones de dos 
términos. 

El tercer sistema es el más típico de Lulio, y 
ha sido representado en multitud de grabados de la 
época. El método consiste en dibujar varios círculos 
concéntricos con los términos. Una vez hecho, se gira 
el círculo obteniéndose' una magnífica tabla de com- 
binaciones. 

En la Edad Media, esos círculos se hacían de 
metal o de pergamino, y se pintaban de colores bri- 
llantes. Dada la incultura general, existente entre las 
gentes sencillas, el giro, el colorido y la forma de 
presentar el problema, proporcionaban una conno-- 
tación esotérica a todo el trabajo, aumentando la 
fama de “extraño brujo” que tenía Lulio, 


mos cálculos, y además, el Estado tampoco 
respondía totalmente de sus errores. Como el 


trabajo de su padre era tediosísimo, Pascal, 
siempre interesado por las Matemáticas, se 
aprestó a ayudarle "a su estilo", el estilo de un 
investigador muy bien dotado. 

Sin haber estudiado documentación al- 
guna que le sirviera de base (al contrario que 
Leibniz, del que hablaremos también), Pascal 
puso manos a la obra y diseñó una máquina 
de calcular. La máquina estaba bien concebi- 
da, pero otra cosa diferente era llevarla a la 
práctica. Eran muchas ruedas, y la transmisión 
del movimiento desde el comienzo hasta el úl- 
timo mecanismo constituía un problema com- 
plicado en la práctica. Pascal utilizó trinque- 
tes, que iban subiendo hasta llegar al nueve 
en que caían a cero, avanzando la rueda si- 
guiente una unidad. Ese momento era el más 
difícil, para el que existía una resistencia ma- 
yor. 

En cuanto a la resta, Pascal pensó que 
el giro en el sentido contrario era muy com- 
plicado y podía crear problemas. Y diseñó la 
resta de forma que lo que se efectuaba era la 
suma de los números complementarios de los 
datos. De este modo, ambas operaciones se 
podían realizar con el mismo movimiento, 

La multiplicación y división, ya no esta- 
ban tan ingeniosamente pensadas. En reali- 
dad, las multiplicaciones eran sumas reiterati- 
vas. 


Pascal llegó a comercializar sus máqui- 
nas, lo que tiene mucha importancia, ya que 
diseñar dispositivos requiere ingenio, pero 
para llegar a dar vida a una máquina hace fal- 
ta además de ingenio, tesón. La máquina de 
Pascal era suficientemente segura, como para 
repetirla, y venderla. (En 1960 todavía se po- 
dían encontrar máquinas de calcular basadas 
en el Pascalina.) : 

Sin embargo, sólo llegó a vender trein- 
ta y siete unidades. 

Como antes dijimos, Pascal se interesó 
por la máquina hasta el punto de comerciali- 
zarla. Para ello tuvo que localizar artesanos ca- 
paces de construirla a mano, y con la mayor 
fiabilidad. Los relojeros de la época eran idea- 
les para este tipo de trabajos. Estaban acos- 
tumbrados a ingenios de relojería complicadí- 
simos que daban la hora, el mes, la posición 
de los planetas, desfiles de muñecos, sonidos 
complicados, etc. Los buenos artesanos no es- 
caseaban en aquella época, aunque los mate- 
riales no estaban a la altura de la habilidad de 
los que los domaban. Las máquinas resultaban 
caras, además, no hay que olvidar que el tra- 
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Fig. 3. -Sumador diferencial. 


bajo humano no tenía demasiado valor, de for- 
ma que aunque tuvieran que trabajar varios 
hombres para realizar un cálculo, la idea de 
que la máquina les sustituyera no tenía un in- 
terés especial, más bien su principal interés 
estribaba en "aliviar" el trabajo de algún con- 
table suficientemente poderoso como para 
comprarla. 


El prototipo de la máquina de Pascal 
tardó siete años en construirse. 


La máquina de Pascal supuso una pe- 
queña revolución. La Pascalina era "capaz de 
realizar cálculos aritméticos sin errores, cosa 
difícil, incluso para personas que supieran mu- 
cha aritmética”. (Estas líneas las escribió la 
hermana de Blaise Pascal, y constituyen una 
de las primeras reflexiones sobre lo que hoy 
se denomina “Inteligencia Artificial”.) 


La máquina de Pascal era ante todo in- 
novadora. Pascal la desarrolló sin conocer los 
trabajos de Shickard (del que hablaremos a con- 
tinuación) que a su vez se había basado en 
unos estudios de relojeros chinos anteriores al 
primer milenio antes de Cristo, pero ya habla- 
remos de ello más adelante. Además, su má- 
quina realizaba algo nada usual en la época, 
hacía conversiones entre las distintas mone- 
das en uso. 


Es importante hacer notar que Pascal 
fue un investigador nato. Además de matemá- 
tico de primera fila (cálculo de probabilida- 
des, geometría descriptiva, etc.), fue un físico 
importantísimo. Estudió el comportamiento de 
los fluidos, la presión, y hoy en día sus expe- 
rimentos y estudios siguen teniendo la misma 
vigencia. Entre sus aportaciones a las técnicas 
de vanguardia, está su prensa hidráulica, en la 
que se basan todos los sistemas modernos de 
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transmisión utilizados en miles de aparatos e 
instalaciones de nuestra vida cotidiana. 

Entre sus invenciones y estudios senci- 
llos, las cajas registradoras de hace unos años 
son máquinas casi idénticas a la máquina de 
calcular de Pascal. 

Pascal construyó cincuenta máquinas, 
algunas de las cuales, verdaderas piezas de 
museo, se pueden ver en París, y en Clermont 
Ferrand su ciudad natal. 

Otros inventores ya habían diseñado 
máquinas de calcular, que incluso multiplica- 
ban y dividían. Pero no pasaron de ser proto- 
tipos interesantes. En 1623, en Alemania, Wi- 
lliam Shickardt diseñó una máquina muy lo- 
grada, llegando a construir el prototipo. Shic- 
kard era profesor de Matemáticas y Astrono- 
mía y hebreo en la Universidad de Tubinga. 
Sus estudios en este idioma le permitieron re- 
coger ciertos trabajos realizados por relojeros 
chinos anteriores al primer milenio. Estos tra- 
bajos, pasaron a Oriente Medio, y de allí con 
los Cruzados a Europa. Sin embargo, su má- 
quina se destruyó por un incendio, y nunca 
volvió a reconstruirse (realmente esto no es 
del todo cierto, ya que IBM rehizo la máquina 
partiendo de los escritos del autor. Uno de los 
ejemplares se puede ver en el Ayuntamiento 
de Tubinga, su ciudad natal. Shickard no tuvo 
demasiada suerte, y murió poco después de 
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la peste con toda su familia, durante la Guerra 
de los Treinta Años. Se sabe muy poco de su 
existencia, salvo por algunos documentos sal- 
vados que permitieron reconstruir alguna de 
sus máquinas, y unas cartas enviadas al cien- 
tífico Johannes Kepler. 


Su máquina permitía desconectar los 
engranajes, e introducir los números manual- 
mente (permitiendo multiplicaciones rapidísi- 
mas para la época). Algunos de los diseños de 
máquina (construyó varios tipos) llevaba un ci- 
lindro con las Tablas de Logaritmos de Neper. 


Algo más tarde, en 1663, apareció otra 
máquina en Inglaterra, diseñada por Samuel 
Moreland, que realizaba cálculos trigonomé- 
tricos. Moreland construyó varias máquinas, 
algunas de ellas, muy semejantes a la de Pas- 
cal. 


El diseño tan simple de estos “ingenios 
mecánicos” los ha hecho válidos hasta nuestros 
días. Los nuevos materiales, mucho más fia- 
bles, han contribuido notablemente a que fue- 
ran más rentables con el tiempo. En épocas re- 
cientes se han visto en las tiendas unos plu- 
mieres que llevaban incorporada una peque- 
ña reproducción en plástico de máquina de 
calcular. 


Los cuentakilómetros de los coches 
también llevan mecanismos muy semejantes. 


TEMAS MONOGRAFICOS DE VANGUARDIA * 


Los ordenadores en el control 
del acelerador de partículas 


A herramienta básica de 

trabajo de la física de las 

partículas es el acelerador. 

Se trata en principio de un 

acelerador de protones. Un 

acelerador consiste esen- 

cialmente en un conjunto de 

electroimanes y cavidades 

organizados alrededor de un anillo circular de 
200 metros de diámetro. El rayo de protones 
circula atravesando los electroimanes por una 
conducción tal que las interacciones entre el 
rayo de protones y los gases residuales se re- 
duce mucho. Existen, naturalmente, fuertes 
campos magnéticos, y pueden ser de dos ti- 
pos: dipolos, que doblan el rayo para mante- 
nerlo en una órbita circular, y cuadripolos, 
que lo dirigen. El acelerador recibe unos 10 a 
13 protones, para acelerarlos a 26 GeV en 2,4 
segundos, que es lo que tardan en dar unas 
doscientas mil vueltas al acelerador. Como 
puede suponerse, el ajuste fino de todos los 
parámetros es delicadísimo. Los protones se 
extraen del acelerador mediante un tipo espe- 
cial de electroimán y pueden pasar a utilizar- 
se como rayos para otros trabajos, o bien pa- 
sar a otros aceleradores (algunos llegan a te- 
ner una circunferencia de varios kilómetros). 
El acelerador no sólo puede acelerar 
protones, también iones pesados, electrones 
positivos y negativos, y otras partículas, para 
pasarlas a otros aceleradores más específicos. 
Hace veinte años, durante el primer pe- 

ríodo de operación del acelerador del CERN 
(Centro Europeo que estudia la Física de las 
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Partículas), una de las más importantes cosas 
que se mostraban a los visitantes era el cuarto 
de control de las máquinas. Esta habitación es- 
taba totalmente llena con hileras de equipo 
electrónico, con matrices enteras de diales, 
muchísimos pilotos y pantallas de televisión. 
La tarea de los operadores consistía en llevar 
a cabo los ajustes manuales de este complica- 
do equipo, para poner en marcha el acelera- 
dor, y mantenerlo en operación. 

El cuarto de control del acelerador, 
construido hace aproximadamente una déca- 
da, presentaba un aspecto totalmente diferen- 
te: consistía en una habitación amplia, ocupa- 
da por numerosas consolas, en la que estaban 
sentados numerosos operadores que controla- 
ban el acelerador mediante preciosas presen- 
taciones en color, pantallas táctiles, joysticks, 
pulsadores y teclados, todos ellos unidos a un 
sistema de ordenadores integrados. Todo ello 
como en las películas de ciencia ficción. Ha- 
blando seriamente, los cambios en estas habi- 
taciones de control muestran el avance revo- 
lucionario de la Informática. Además, los pre- 
cios han caído en picado, y son numerosas las 
tareas que antes se llevaban a cabo manual- 
mente, y que ahora pueden efectuar los orde- 
nadores. La capacidad de unirlos también ha 
ampliado sustancialmente el campo de su uti- 
lización. Todo ello, sin mencionar controles y 
tareas que antes eran inimaginables, mientras 
que ahora, con la ayuda del ordenador, se rea- 
lizan sin especiales problemas. Citemos algu- 
nas de ellas. 


1. Operación remota del equipo y ad- 
quisición de los datos. 

2. Control del rayo, bien en bucle 
abierto, en el que el operador tiene cierto con- 
trol basado en información que le presente el 
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sistema, o en bucle cerrado, en el que las con- 
diciones requeridas están fijadas por el ope- 
rador y el ordenador es el que se encarga de 
mantenerlas. 

3. Cálculo de las condiciones de ope- 
ración óptimas. Estos cálculos son complica- 
dos, porque manejan enormes cantidades de 
parámetros, Esta operación debe llevarse a 
cabo con rapidez y seguridad, porque de ello 
depende, entre otras cosas, la seguridad del 
experimento. 

4. Elregistro de los parámetros que se 
han dado a la máquina para comprobar que 
ésta está funcionando satisfactoriamente. 

5, Guía del operador en procedimien- 
tos automáticos. 

6. Comprobaciones internas y control 
de acceso, en el cual la protección del equipo 
y el acceso del personal a zonas radiactivas 
está comprobado por el ordenador. 

7. Transmisión de datos de las condi- 
ciones del rayo a experimentos, para su incor- 
poración en sus sistemas de toma de datos, 


En los antiguos sistemas de control del 
acelerador, la configuración típica del ordena- 
dor era sencillamente una con enorme poten- 
cia. Posteriormente, este enorme ordenador 
pasó a controlar a otro grupo de ordenadores 
pequeños, cada uno de los cuales controlaba 
una pequeña parte del acelerador. Con el 
tiempo, los pequeños ordenadores han ido 
complicándose para alcanzar mejores cotas 
de fiabilidad. También están funcionando sis- 
temas con inteligencia artificial, y este punto 
es muy importante: no basta con que el orde- 
nador detecte el error que se está producien- 
do, és necesario que tome las medidas opor- 
tunas, como, por ejemplo, ejecutar un progra- 
ma de diagnóstico, para averiguar las razones 
de la dificultad detectada y permitir que ope- 
radores que se encuentran a varios kilómetros 
de la central tomen las medidas oportunas. Se 
han utilizado mucho la familia de ordenadores 
construidos sobre Motorola 68.000, junto con 
VME bus interconexiones. 

La red de ordenadores más adecuada 
para el acelerador tiene dos niveles. Unos or- 
denadores se utilizan para el proceso, y con- 
trolan el equipo al nivel más inferior. No es útil 
que éstos sean miniordenadores, sino un con- 
junto de microprocesadores, configurados 
sencillamente para que cumplan los requeri- 
mientos, y basados en ló que se llama arqui- 
tectura función a función. Cada microordena- 
dor tiene una tarea específica, y se comunica 
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con los demás, pasando mensajes y también 
con el equipo a través de un canal de gran ca- 
pacidad. Los controladores del proceso están 
unidos unos a otros al nivel más alto, a través 
de un sistema de comunicaciones basado en 
un multiplexor de fibra óptica, que también es 
utilizado por el sistema de control de tiempos 
y para teléfonos digitales y conexiones vía ví-' 
deo. 

Cada una de las partes del equipo que 
componen el acelerador, los imanes, las fuen- 
tes de energía, etc., llevan asociada la corres- 
pondiente información sobre los parámetros, 
las entradas y el sistema de operación. El re- 
sultado es un enorme cúmulo de datos, que 
deben ser procesados del mejor modo posi- 
ble: es una decisión importante. La técnica se- 
leccionada es distribuir los datos: parte en una 
gran base de datos, ubicada en el sistema cen- 
tral, y parte sobre todo el sistema de micro- 
procesadores y ordenadores del sistema. La 
decisión entre los dos niveles se tomará con- 
siderando si la información corresponde a un 
elemento del equipo o es común a todos los 
que están unidos al ordenador de proceso 
central, Lógicamente, cada pieza del equipo 
está asociada con uno de estos módulos, que 
a su vez está dividido en dos trozos, tal y como 
hemos descrito anteriormente. También se 
guardan copias de esta base de datos para 
propósitos de archivo o recarga, pero debe 
haber una base de datos central, involucrada 
en el funcionamiento global de la máquina de 
forma que proporcione los parámetros están- 
dar correspondientes a las condiciones gene- 
rales de operación. Esta base de datos central 
también permitirá el ajuste directo de los pa- 
rámetros del rayo, no únicamente los de la má- 
quina. Por ejemplo, un operador puede que- 
rer establecer el ángulo de un rayo, y a con- 
tinuación permitir a la base de datos que pro- 
porcione los parámetros correspondientes a 
ese ángulo, en lugar de tener que controlar to- 
dos los dispositivos necesarios para obtener el 
ángulo necesario, 

Los sistemas principales de control del 
acelerador están programados en lenguajes 
de alto nivel; el acelerador de protones en 
un lenguaje derivado del PASCAL llamado P+, 
y también se utiliza otro lenguaje desarrolla- 
do a partir del FOCAL, y con ciertas caracte- 
rísticas del BASIC, y SNOBOL 4. Se llama NO- 
DAL (y ha sido desarrollado por NORD-10). 
Este lenguaje se utiliza también en otro tipo de 
laboratorios. Dispone de la facilidad de poder 
ejecutar partes de un programa en otros orde- 


nadores, para esperar los resultados. La posi- 
bilidad de utilizar lenguajes de alto nivel es 
importantísima, ya que han podido entrar a 
formar parte del equipo de programación in- 
genieros y físicos, que conocen el diseño y 
construcción de la máquina, y, en suma, son 
profesionales especializados, en lugar de 
utilizar simplemente programadores, que difí- 
cilmente llegarían a comprender con tanta 
profundidad las necesidades y posibilidades 
de la máquina. Estos lenguajes han sido dise- 
ñados por CERN (Laboratorio Europeo para la 
Física de las Partículas), y en cuanto a los sis- 
temas operativos, los fabricantes de los orde- 
nadores utilizados, son los que suelen realizar 
las mejoras. Existen diferencias entre los 
EE.UU. y Europa, donde los sistemas de con- 
trol están basados en ordenadores VAX que 
utilizan el sistema operativo VMS, con progra- 
mación de alto nivel, llevada a cabo en FOR- 
TRAN 77. De hecho, debemos decir que exis- 
ten casi tantos sistemas de control del acele- 
rador como aceleradores mismos. 

Se está en este momento en la fase de 
implantación de un nuevo lenguaje, el MODU- 
LA-2, para escribir el intérprete de NODAL y 
mucho del software básico. Este lenguaje pro- 
porciona un sistema de software portátil, es 
decir, posibilita el cambio del hardware (or- 
denador propiamente dicho) sin necesidad de 
revisar el software, situación muy común, ya 
que la vida de un acelerador es varias veces 
más larga que las de un ordenador dado. 

Los recursos necesarios para construir 
y hacer funcionar un laboratorio de física nu- 
clear son considerables. En sus primeros co- 
mienzos era frecuente que fueran decisiones 
a nivel de Estado, o también, como ocurre en 
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ciertos países a nivel de varias Universidades 
que se unen para disponer de un laboratorio 
conjunto. Sin embargo, con el enorme aumen- 
to de las posibilidades, han aumentado para- 
lelamente los gastos, que son ya tan enormes 
que requieren colaboración internacional. De 
este modo, se considera que es más rentable 
construir menos aceleradores, pero más gran- 
des. Con esta idea, podemos citar en Europa 
los de CERN y DESY; en EE. UU. Brookhaven 
Fermilab, Cornell, y en la URSS, Dubna y en Ja- 
pón KEK. Existen organizaciones internaciona- 
les que deciden y recomiendan las posibles 
ubicaciones y tipos de los futuros acelerado- 
res, para obtener un mayor grádo de coope- 
ración, procurando que no se repitan trabajos 
que se han realizado en otra central y evitar 
la duplicidad. El estilo de trabajo varía de unos 
a otros, pero los objetivos son idénticos. 


En Europa Occidental, el CERN es un 
laboratorio internacional, creado por varios 
Estados para satisfacer sus necesidades. Tie- 
ne una dotación de científicos fijos, y otros iti- 
nerantes, que van variando año tras año. 


Los experimentos propiamente dichos 
son llevados a cabo por colaboraciones entre 
varios cientos de científicos. 


Los gastos del laboratorio también son 
enormes. Y aunque los trabajos están basados 
en la Física pura, el empuje de la industria 
hace que siempre estén ligados en cierto 
modo a ella. 

Para cada ¡experimento adjudicado al 
equipo de algún científico de prestigio, existe 
un comité que vigila que el dinero no se derro- 
che, y se adjudiquen trabajos interesantes a 
personas que los pueden sacar adelante. 


TERMINOLOGIA 


ALGUNOS TIPOS DE 
ACELERADORES Y TERMINOS 
RELACIONADOS CON ELLOS 


Acelerador. Dispositivo que emplea campos 
magnéticos y eléctricos de alta frecuencia 
para producir aceleraciones en las partícu- 
las en sincronismo cientos de miles de ve- 
ces. Tanto la órbita como la intensidad del 
haz se mantienen constantes. Los primeros 
aceleradores de iones consistían simple- 
mente en tubos de descarga en los que se 
hacía el vacío y a los que se aplicaban ten- 
siones continuas. 


Acelerador lineal. Dispositivo que acelera 
partículas a altas energías mediante un 
campo eléctrico oscilante. Se utiliza princi- 
palmente para acelerar iones pesados a 
ciertas energías (3MeV o similares). 

El acelerador elemental consistía en un con- 
junto de tubos metálicos conectados a una 
fuente de potencia de alta frecuencia, y co- 
locados dentro de una cámara de vacío. Al 
reproducirse una descarga en un extremo 
del acelerador las partículas se aceleraban 
al atravesar el espacio entre los dos electro- 
dos. En los aceleradores lineales también se 
cumple el principio de estabilidad en fase. 
En general, resultan más prácticos los sin- 
crotrones, que disponen del electroimán en 
forma de anillo. 


Betatrón. Dispositivo que data de 1939. Con- 
siste esencialmente en una cámara de vacío 
en la que se encuentra una nube de elec- 
trones libres, que hace el papel de devana- 
do secundario de un transformador. Los 
electrones se mueven en órbitas de radio 
constante, y van ganando energía por in- 
ducción (debido al flujo del campo magné- 
tico variable). Los electrones hacen su tra- 
yectoria cientos de miles de veces ganan- 
do unos cientos de voltios por vuelta. 
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Fig. 1. 


Ciclotrón. Dispositivo construido por Law- 


rence y Livingston en la Universidad de Ca- 
lifornia en 1932. Aceleraba partículas carga- 
das hasta 1 meV (hoy en día se obtienen 
energías mucho más altas (20 meV e inclu- 
so más). El sistema introducía el concepto 
de aceleración múltiple, obtenida al dispo- 
ner un campo eléctrico oscilante. De este 
modo, no era necesario utilizar potenciales 
tan altos. Este concepto se aplicó a partícu- 
las con órbitas circulares producidas en un 
campo magnético. 


Esquema de un ciclotón. 


Esencialmente, un ciclotrón consiste en dos 
electrodos huecos en forma de D monta- 
dos en un tubo vacío. Están conectados a 
una fuente de tensión de alta frecuencia, y 
se colocan perpendicularmente a un campo 
magnético fuerte. La fuente de iones se en- 
cuentra en el centro entre los dos electro- 
dos. La partícula sólo sufre el efecto del 
campo magnético, excepto en el momento 
en el que cruza la separación existente en- 
tre las dos D. El tiempo que tarda el ion en 
su trayectoria por el semicírculo debe ser 
igual al que tarda el campo eléctrico en 
cambiar de signo. De este modo, la partícu- 
la va incrementando su energía en 2 e V cos 
alfa. La partícula efectúa muchísimas tra- 
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yectorias por el acelerador, aumentando su 
energía en cada vuelta. Los ciclotrones de 
nuestros días utilizan fuentes de alta fre- 
cuencia y tensiones muy altas, con el fin de 
reducir el número de revoluciones. 


Estabilidad de fase. El radio de la órbita de 

una partícula es función de su masa y del 
campo magnético. Su frecuencia angular es 
igual a la frecuencia del oscilador para ese 
radio. 
Las partículas cuya energía inicial es lige- 
tamente diferente de la de equilibrio des- 
criben órbitas de radios mayores o menores 
que los de equilibrio. Sus frecuencias tam- 
bién serán diferentes de la del campo eléc- 
trico, Sin embargo, si se producen cambios 
no muy importantes, las partículas tienden 
a perder o ganar la energía suficiente y res- 
tablecen las condiciones de equilibrio. Si se 
va aumentando continuamente el campo 
magnético, o si se disminuye la frecuencia, 
las partículas irán ganando energía constan- 
temente a una velocidad determinada, por 
la variación de la frecuencia o del campo 
magnético. (En esta característica se basa 
otro dispositivo, el sincrotrón.) 


NODO: 


Fig. 2. Esquema de un acelerador lineal. 


Fuentes de tensión. En un principio se uti- 
lizaron tensiones continuas. Las fuentes uti- 
lizadas consistían simplemente en un con- 
junto de transformador rectificador. Más 
adelante, se utilizaron generadores de alta 
tensión. : 


Oscilaciones. Pequeñas variaciones entre la 
órbita de equilibrio de las partículas. Pue- 
den ser radiales y verticales. El campo mag- 
nético debe calcularse para que éstas sean 
mínimas. : 

Sincrociclotrón. En los ciclotrones, la ener- 
gía se veía en cierto modo limitada por el 
aumento de la masa (teoría de la relativi- 
dad). La frecuencia del ion disminuía, y éste 
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Fig. 3. Esquema de un betatrón. 


dejaba de resonar con el campo eléctrico 
aplicado. 

En un ciclotrón, el radio de la órbita estable 
es el obtenido cuando la frecuencia angular 
del ion es iugal a la frecuencia del oscila- 
dor. De este modo, aumentando enorme- 
mente la frecuencia, el radio puede dismi- 
nuir hasta alcanzar un valor límite dado por 
la fórmula, 


(e) 


siendo m, la masa en reposo del ion, y B, el 
campo aplicado a la fuente de iones. 

Si se hace disminuir la frecuencia del osci- 
lador hasta w, - dw, el radio de la órbita es- 
table aumenta. Cuanto más rápidamente au- 
mente la frecuencia, más energía obtendrá 
la partícula por cada ciclo, y por eso nece- 
sitará menos ciclos para alcanzar el radio 
deseado. 
La modulación de la frecuencia del oscila- 
dor se realiza con un condensador que va 
girando a velocidad variable. La poten- 
cia necesaria para el oscilador es mucho 
menor que en el ciclotrón, ya que las partí- 
culas giran muchas más revoluciones. El sin- 


magnético 


crociclotrón es capaz de acelerar protones, 
con energías muy altas, capaces a su vez de 
crear mesones por colisiones nucleares. No 
son válidos, sin embargo, para acelerar elec- 
trones, ya que éstos tienen una masa muy 
pequeña. Los electrones se aceleran me- 
diante el sincrotrón. 


Sincrotrón. Método de .acelerar electrones 


que utiliza un campo magnético anular pro- 
ducido por un electroimán (en forma de ani- 
llo). Acelera los electrones en una órbita de 
radio constante. Una de las ventajas sobre 
el betatrón es el ahorro de peso que supo- 
ne la utilización del electroimán. El princi- 
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pio utilizado en este dispositivo es el mismo 
que el del sincrociclotrón: la frecuencia de 
las partículas cargadas debe ser igual a la 
del oscilador. Para ajustarlo, se varía la fre- 
cuencia de éste. En la práctica, como los 
electrones alcanzan velocidades enormes, 
es más útil dejar fija la frecuencia del osci- 
lador y variar el campo magnético. Un sis- 
tema que se ha utilizado es acelerar las par- 
tículas hasta ciertas velocidades, para más 
tarde pasarlas al ciclotrón, que las acelera 
hasta valores muy superiores. El límite de 
energía en el sincrotrón es, pues, algo más 


alto que en el betatrón. 


. 
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VOCABULARIO DE INFORMATICA y 


Fichero, mantenimiento de un. Acciones 
tomadas para mantener al día el fichero, in- 
troduciendo, borrando o cambiando los da- 
tos que contiene. 


Fichero secuencial. Fichero cuyos regis- 
tros se han ordenado siguiendo un criterio 
secuencial (uno detrás del otro). Para acce- 
der a un determinado registro, debe «pasar- 
se» por los anteriores. 


Fichero, separador de. Elemento que sirve 
para separar los distintos elementos de in- 
formación contenidos en el fichero. 


FIFO (First In First Out). (Primero en en- 
trar, primero en salir). Sistema de funciona- 
miento en una cola de espera, según el cual 
es el primero que llega el primero que se 
ejecuta. 


Figurativa, constante. En un lenguaje de 
programación, cadena de caracteres fija, 
previamente asignada, y con nombre fijo. 


File. (Ver Fichero.) 


File gap. Zona de un medio que se utiliza 
para indicar el final de un fichero, y proba- 
blemente el comienzo de otro. También 
puede utilizarse para indicar el comienzo o 
el fin de algún grupo de datos. 


Filtro. Dispositivo o programa que sirve para 
separar datos, señales o cualquier otro ele- 
mento o elementos, según un determinado 
criterio. También puede referirse a una 
máscara. 
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Firmware. Término inglés utilizado para de- 
signar el software incluido en una memoria 
ROM, y, por tanto, incorporado a la má- 
quina. 


Flag. Término inglés utilizado para designar 
a un indicador, es decir, para indicar si una 
determinada situación es verdadera o falsa, 
En la mayoría de los casos, podría ocupar 
un bit de memoria, pero ocupa un byte 
como toda las variables lógicas. 


Flip-flop. Circuito basculante, es decir, ca- 
paz de tomar en un momento dado uno de 
los dos estados estables, 


Flujo. Secuencia de acontecimientos. Tam- 
bién se utiliza el término en la: denomina- 
ción de un diagrama de flujo, diagrama en 
el cual se indican de forma esquemática las 
operaciones desarrolladas en un programa. 
Puede referirse, por otro lado, a una secuen- 
cia ordenada de registros. 


Flujo bidireccional. En un diagrama de flu- 
jo, aquél que se puede extender en las dos 
direcciones de una línea de flujo. 


Flujo, línea de. Línea que representa una 
transferencia o control de los datos, en un 
diagrama de flujo. 


Font. (Véase Fuente.) 


Foreground. En multiprogramación, suele 
referirse a una de las divisiones efectuadas 
en la memoria central. La primera zona se 
denomina foreground, o memoria de «pri- 
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mer plano», frente a la segunda, back- 
ground, «memoria de segundo plano». Los 
programas que se encuentran en la prime- 
ra zona se ejecutan en tiempo real (frente a 
los segundos, que lo hacen en proceso 
batch). 


Foreground processing. Ejecución automá- 
tica de programas, según criterios estable- 
cidos con anterioridad desde la zona de fo- 
reground. Suele utilizarse para designar a 
los programas que se ejecutan en tiempo 
real. En contraposición con procesos batch. 


Form feed. Carácter que controla el movi- 
miento de la posición de impresión, pasan- 
do a la página siguiente. Se utiliza muy fre- 
cuentemente su abreviación, FF, 


Formato de un fichero. Disposición que to- 
man los datos en un fichero. En ella debe 
considerarse la estructura, la secuencia y el 
tamaño de sus componentes. 


Format effector. Carácter de control utiliza- 
do por un dispositivo de presentación o de 
impresión, y que controla la presentación o 
la posición de la información. Con frecuen- 
cia se utiliza su abreviación, FE. Sinónimo 
de carácter de presentación. 


Formatear. Operación realizada en lo discos 
rígidos o flexibles la primera vez que se van 
a utilizar. Consiste en grabar en ellos todo 
aquello que posteriormente servirá para su 
empleo (directorio, comienzos de los secto- 
res, etc.) También se pueden formatear los 

«discos ya utilizados, pero en ese caso se 
perderá toda la información almacenada en 
ellos. Este tipo de información grabada de- 
pende del sistema operativo de cada orde- 
nador, por lo que un disco formateado con 
un determinado ordenador puede no servir 
para otro. 
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Frame. Término inglés utilizado para referir- 
se a un área de una longitud igual a una po- 
sición de grabación y que se extiende a lo 
ancho de una cinta magnética, perpendicu- 
lar a su movimiento, Se pueden incluir en 
un único «frame», en ocasiones varias posi- 
ciones de grabación. 


Fuente. Conjunto de caracteres (disponibles 
en una impresora o dispositivo de presenta- 
ción gráfica) de un determinado tamaño, es- 
tilo, etc. Por ejemplo, letra inglesa o itálica, 
etcétera. 


Full duplex. (Véase Dúplex.) 


Función. Vínculo entre una c más variables 
independientes y una o más variables de- 
pendientes. De este modo, a cada valor le 
corresponde, por la función, otro u otros va- 
lores. En programación, en el lenguaje que 
se utilice, están establecidas generalmente 
algunas funciones, aunque el programador 
puede definir las que le parezca oportuno 
(en la mayoría de los lenguajes). 


Función, tabla de. Cuando dos o más con- 
juntos de datos están organizados de forma 
que una entrada en uno de ellos selecciona 
otra o más entradas en los restantes conjun- 
tos. Tabulación de los valores de una fun- 
ción para un conjunto de valores de la va- 
riable. También se puede referir a un dis- 
positivo de hardware o a una subrutina que 
puede decodificar entradas múltiples en 
una salida única o codificar una entrada úni- 
ca en salidas múltiples. 


Funcional, diagrama. Diagrama que repre- 
senta las relacionales funciones entre las 
distintas partes de un'determinado sistema. 


Funcional, diseño. Especificación de las re- 
laciones de trabajo entre las distintas partes 
del sistema, considerando sus acciones ca- 
racterísticas. 


